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19-23 APRILE 1985 - è FIERA Di MILANO 


Ogni anno circa due milioni di persone 
visitano la Fiera Campionaria di Milano. 
Dal 1 985, ad attenderle, ci sarà 
COMPUTER SHOW 
il nuovo Salone interamente dedicato 
all’informatica per i giovani, la scuola, 
la famiglia moderna. Sicuramente sarà 
i! più grande appuntamento dell’anno. 


Perché non esserci? 


Segreteria: 

E.P.I. ENTE PROMOZIONE INFORMATICA 
Vìa Monachetti, 27 - 20139 Milano 
Telefoni 1021 56.93.973 - 53.98.267 
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* Essendo possessore di un Coni* 
m odore 64 ho avuto modo di lavo- 
rare con la grafica di questo com- 
puter. Possedendo un monitor, tut- 
te le belle figure che creavo eoi 64 
erano nitide a perfette; Il problema 
è sorto quando ho registrato su vi- 
deoregistratore del programmi 
grafici. Allora sa collegavo II VCR al 
monitor si vedeva bene, ma quan- 
do ho portato la video cassetta ad 
una TV locale per trasmetterla via 
etere, se non andava In onda tutto 
OK, quando veniva trasmessa ap- 
pariva una strìscia nera In basso 
che ballava rovinando il tutto. Allo- 
ra chiedo come posso risolvere 
questo mio problema? 

(Antonio delta Colletta) 

□ La causa può essere individuala in 
una rivelazione di radiofrequenza. Ciò 
può essere locato sulla testina rotante o 
sul circuito di amplificazione , Questa in- 
terferenza può causare un tentativo di 
sgancio dei sincronismi. Provi a verifi- 
care le massa. 

* Sono in possesso del Commo- 
dore 64 e vorrei sapere se è possi- 
bile tenere contatti ità/IV A/ 
fatturazione, a livello artigianale o 
di piccole aziende. Chiaramente 
questo lavoro verrebbe effettuato 
per conto terzi. 

(Vecchi Emilio) 

□ Si e no. Ma che risposta è questa? In 
realtà non si può dare decisamente una 
risposta affermativa o negativa. Tutto 
dipende dalle necessità del momento o 
meglio dal cliente o da alcune altre ca- 
ratteristiche > Esistono in commercio al- 
cuni package di contabilità, fatturazio- 
ne e magazzino (più o meno tutti copiati 
dalla vecchia serie 3000 della Commo- 


dore) che hanno la particolarità di "gira- 
re" e più non commento. Non confon- 
diamo il C64 con altri tipi di computer 
fatti appositamente per applicazione 
professionale/ gestionale, Il Commodo- 
re 64 è una macchina magnifica, ma 
cerchiamo di conoscerne i limiti e senza 
dubbio potremo apprezzarla ancora di 
più . 

• Recentemente ho acquistato un 
Commodore 64 per mia figlia e sia- 
mo alle prime armi neirapp rende re 
il BASIC. Nel copiare dei listati in- 
contriamo spesso dei simboli gra- 
fici, linee o parentesi quadre ecc. 
che non riusciamo a capire e tra- 
sferire sul video, in particolare i 
simboli In neretto. Probabilmente 
non usiamo correttamente qualche 
tasto o funzione per cui vorremmo 
un VS. consiglio per superare l'o- 
stacolo, Forse esiste anche qual- 
che piccolo trucco dovuto a r espe- 
rienza che non conosciamo. Rin* 
graziamo per la cortese risposta, 
se possibile direttamente, per evi- 
tare l'attesa per noi motto lunga, di 
vederia pubblicata sulla rivista. 

(Zucconi Giorgio) 

□ Proprio per questa ragione su Com- 
modore riportiamo sempre (tranne 
qualche rara eccezione) i listati in un 
formato particolare. Cioè ogni comando 
di controlio viene interpretato e posto tra 
parentesi quadre. Ogni qualvolta si in- 
contrano queste parentesi sì deve ese- 
guire la digitazione del comando , cosi 
ad esempio [up] vuote dire che deve 
essere premuto il tasto di controllo cur- 
sore (crsr) con le freccette verticali Non 
spaventatevi quindi, con fespenenza 
questi problemi non sussisteranno più . 


* Possiedo un Commodore 64 e 
nel ritagli di tempo cerco di fare 
qualche programmino di matema- 
tica, applicazioni di fìsica, ecc. In 
tali programmi, il più delle volte, è 
necessario inserire una funzione 
durante l’esecuzione; in questi ca- 
si ricorro al LIST -linea definizione 
della funzione, fermando il pro- 
gramma e dando il RUM per rico- 
minciare. C’è la possibilità con 
qualche accorgimento o qualche 
routine in linguaggio macchina, 
d’inserire una tramite un input 
normale? 

(Stefano Masini} 
□ Carissimo Stefano Masini , il proble- 
ma osservato nelle sue righe è indub- 
biamente motto interessante. Mi ricor- 
do, circa 8 anni fa agli albori dei compu- 
ter Commodore, che tale problema é 
stato risolto con questo semplice 
artifizio: 

* si prevede sul listato una riga com- 
pletamente riempita di *? (due punti); 

m $ì individua la posizione in memoria 
dì detta riga ; 

» con opportune POKE Si costruisce la 
formula necessaria. 

Tutto ciò è forse più semplice da dire 
che non da tare, comunque auguri! 

* Ho letto con vivo interesse l’artì- 
colo CIA (6526) e di conseguenza 
vorrei sottoporvi il mìo caso, che a 
quanto sò non è solo mio. Mi si è 
bruciato il 6526 usando il floppy. 
Dome sì vede dallo schema il 6526 
è connesso alla porta seriale trami- 
te degli inerenti (7406), A questo 
punto ho portato il Commodore 64 
dal mio rivenditore il quale mi ha 
detto che l’avrebbe spedito alla ca- 
sa Importatrice e che sarebbe tor- 
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nato dopo 4 lunghi mesi {cose 
inaudite). Siccome il C$4 a me ser- 
ve per lavoro ho cercato di danni 
da fare. La casa Importatrice mi ha 
detto di rivolgermi al distributore di 
zona. A sua votta questi mi ha in- 
fornimelo che la Commodore non 
fornisce pezzi di ricambio, mma se 
avessi Inviato a loro II computer 
forse me lo avrebbero riparato 
usando pezzi di altri computer rot- 
ti. Credo che la Commodore gene- 
rale sia ubicata In Inghilterra. Cosi 
un pò* demoralizzato ho comincia* 
lo a telefonare a tutti ì negozi, in- 
clusi ì rivenditori all'mg rosso di 
componenti elettronici (di Padova, 
Milano), Ì quali mi hanno detto che 
tale integralo è molto richiesto, ma 
non ce rhanno. Concludendo (a 
parte la bolletta SIP) questo inte- 
grato rho trovato grazie alle cono- 
scenze di un grosso distributore. 
Capisco che possano essere utili 
le raccomandazioni per trovare un 
posto di lavoro, ma non supponevo 
che ce ne volessero tante per tro- 
vare il 6526, 

P.5. Lo stesso importatore a me 
aveva detto di non avere questo 
integrato. 

A questo punto vi chiedo, la 
prossima volta che avrà bisogno di 
un integrato a chi devo rivolgermi 
senza raccomandazioni? 

(IK3ABY Stefano) 

□ Caro IK3 ABY Stefano, come fautore 
dett'arttcoto anche io sono radioamato- 
re (Ì2KH) ed ecco perchè, come nostro 
uso, ti rispondo in tono confidenziale 
Ho riportato per intero la tua lettera in 
quanto ritengo che il problema da te 
riscontrato sia attuale per molti altri pos- 


sessori di C64. Ti confermo tutto ciò 
perchè io stesso per altre ragioni ho 
avuto dei problemi ai quanto Similari, 
Alcune volto ho dovuto portare al centro 
servizio del rivenditore regionale dei 
€64 e... dopo funghe attese, mesi come 
accusi tu r ho scelto l'opportunità di ri- 
volgermi ad un importatore.., privato. A 
questo punto nacquero altri problemi 
che riguardano i pezzi delle parti di ri- 
cambio. Mi sono dato da fare e t a disca- 
pito dei prezzo, mi sono assicurato una 
scorta sufficiente per le mie necessità 
Con questo ti ho raccontato la mia Odis- 
sea vista in termini più grossi dei tuoi, 
ma altrettanto importante. 

Perchè la Commodore International 
non fornisce questi benedetti pezzi di 
ncambio ? Come dare una risposta? 

Si possono fare solamente delle ipo- 
tesi. Innanzitutto la Commodore è una 
multinazionale con sede in California, 
ed è direttamente produttrice degli inte- 
grati di cui sopra ( MOS Tecnology); 
quindi detta produzione é fatta per sé. 
Questo fatto può indurre solo ad ipotesi 
del tipo : al la produzione è appena suf- 
ficiente per fa costruzione dei compu- 
ter; oppure bf per qualche strategia di 
mercato t’approvigionamento delie par- 
tì dì ricambio è limitato esclusivamente 
alle più strette necessità. Per noi la cosa 
non va bene \ Ma possiamo forse dare 
tutti i torti alia Commodore se, per stra- 
tegia industriale, avesse deciso di agire 
in questo modo ? 

m Sono un dipendente di una me- 
dia azienda del centro Italia e nel- 
l'ambito della ditta occupo un po- 
sto di programmatore COBOL su 
un DPS4 della Honeywell. Ho ac- 
quistato il Commodore 64 con il 


suo floppy e la stampante. Mi sto 
divertendo con il BASIC, ma mi sor- 
ge un dubbio: si può avere il CO- 
BOL sul Commmodore 647 

{Salvatore Napolitano) 

D Non si può avere tutto dalla vita t Le 
prestazioni dei tuo Commodore sem- 
brerebbero limitate al BASIC e r Assem- 
bler. Perchè al condizionale? Intani non 
è completamente vera questa limitazio- 
ne. Sul Commodore 64 possono girare 
altri linguaggi di programmazione come 
ad esempio il Usp, il COMAL, il Pascal 
ed altri t il tutto semplicemente “carican- 
do" il relativo mterprete/compitafoie 
Per arrivare invece al COBOL si sa che 
le maga case di software non hanno 
mai intrappreso fazione di trasportare 
questo linguaggio sul microprocessore 
6502 o 6510, 

Cosa si può fare attore ? 

La Commodore ha pensato di realiz- 
zare un optional che guarda cosa può 
aiutare a risolvere questo problema, fa 
scheda CPM. 

fnche cosa consiste questo optional 
Prima di rispondere a questa domanda 
occorre sapere che il CPM è un sistema 
operativo della Digital Research svilup- 
pato per il microprocessore ZBO ed in 
seguito implementato suflWBB, Sotto 
questo sistema operativo girano motti 
linguaggi tra 1 quafi anche un tipo di 
COBOL La scheda CPM è costituita da 
una parte elettronica che comprende il 
famoso ZBO da connettere al 64 (sposa- 
lizio tra ZBO e 6510) ed un dischetto 
formato 154 1 che contiene il sistea ope- 
rativo CP vero e proprio . A questo punto 
procurarsi un qualsiasi linguaggio pre- 
visto dal CPM non dovrebbe essere co- 
sa difficile e ... quindi: si, sul Commodo- 
re 64 c’è anche il COBOL. 
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COMMODORE ONE 



Durantè il Salone della Nautica di 
Genova il ketch di 18 inetri che porta 
il nome dJ Commodore One, e rima- 
sto ormeggiato nella darsena della 
mostra e in quell'occasione Giorgio 
Moser ha illustralo alla stampa pre- 
sente il suo prossimo viaggio verso 
gN Stati Uniti, dove realizzerà una 
serie televisiva dal titolo "Ventimiglla 
leghe dentro l'America*'. 

Il viaggio/documentario prenderà 
le mosse de San Salvador, dove si 
concluse quello di Cristoforo Co* 
lombo, e. una volta attraversato II 
Golfo del Massico, Commodore One 
risalirà II Misslssipl per 4000 chilo- 
metri fino a SL Louis. Da 11 attraverso 
ri Ili noia entrerà nel lago Michigan, 
poi nei laghi Huron, Erta e Ontario, 
Scendendo quindi lungo THudson 
fino a New York, Commodore One 
imboccherà Tlntercoast Channel, che 
corre parallelo all'Atlantico, per sbu- 
care nel Golfo del Messico davanti 
alta Florida. 

Un round trip di 30,000 leghe nel 
cuore dell'America di esploratori e 
pionieri, lungo Je " water- way'. Un 
Itinerario inedito che, da Colombo 
ad oggi, nessuno ha mal verificato, 
che la macchina da presa ha inspie- 
gabilmente Ignorato. 

Commodore One: un gioiello 
dell'elettronica 

Coma può entrare un compu- 
ter Commodore su una barca? 

|j calcolatore è In grado di svol- 
gere un'Infinità di funzioni, dal 
check-up permanente del moto- 
re e dell'Impianto elettrico alla 
gestione delle trasmissioni via 
radio con la terrdferma, al colle- 
gamento con le apparecchiature 
di bordo. Il tutto con computer 
Commodore 64 Executive. 

Su Commodore One, ti com- 
puter è protagonista soprattutto 
del collegamenti in ricetrasmis- 
sìone. Oltre al radiotelegrafo, un 


Commodore 64 può gestire la 
trasmissione automatica del mes- 
saggio di soccorso con denomi- 
nazione e posizione della barca. 
Per il calcolo della rotta e delle 
informazioni fondamentali in na- 
vigazione, Commodore One è 
collegata con il sistema satellita- 
re, con il Meteosat e con ì) siste- 
ma Loran. Nella navigazione sot- 
tocosta, sullo schermo del com- 


puter vengono visualizzate le car- 
te nautiche relative al tratto di 
costa interessato, e viene trac- 
ciata in ogni istante la posizione 
delia barca e la rotta seguita. 

Il controllo computerizzato del- 
la strumentazione di bordo (bus- 
sola elettronica, timone a vento, 
pilota automatico) riduce al mi- 
nimo le possibilità di errore. Ol- 
tre a fare da ufficiale di rotta e da 


6-Commoóam 




■dv«ii**in 



RESISTENTI, COMPATTE 
SILENZIOSE, EFFICIENTI, 
AFFIDABILI E COMPETITIVE. 


Stampanti MITSUI con le caratteristiche 

f tipiche dei giapponesi. 

jx La TELCOM propone una gamma di stampanti 
it. che si distingue per la varietà 


J ) ) T: che si distingue per la varietà 

,!J t/ , & delle funzioni e per la grande affidabilità: 

- 80 0132 colonne 

- 1 20 e 180 caratteri al secondo bidirezionale ottimizzata 

- fogli singoli, moduli continui 

M/ v ) - vari tipi di caratteri 

/A / '; - stampa espansa, compressa, NLQ, grafica 

/ f / 1 i > \ - interfaccia parallela, seriale, buffer fino a 128 KB, 
interfaccie speciali. 
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skipper, fi computer sì trasforma 
dì volta in volta in meccanico, 
medico e cambusiere con l'aiuto 
di programmi studiati apposita- 
mente per la spedizione. Uno 
degli Executive fornisce sul vi- 
deo le informazioni necessarie 
per l'assistenza tecnica in caso 
di avaria. E, per finire, un pro- 
gramma sviluppato da un'équipe 
di medici del GNR trasforma il 
computer in un medico elettro- 
nico in grado di prestare le prime 
cure in caso di malore, mentre 
un ricettario elettronico assicura 
una rotazione dei menù settima- 
nali. 

Quali sono le possibili appli- 
cazioni richiamabili dai C 64 pre- 
senti su Commodore One? Ve- 
diamone il “Menù": 

• Check-up dei motore 

• Check-up del generatore 

« Check-up deirimpianto elettri* 
co 

• Trasmissione del messaggio di 
soccorso S.Q.S. con denomina- 
zione e posizione della barca in 
telegrafia e In fonia con il sinte- 
tizzatore vocale 

• Controllo della presenza del- 
l’acqua in sentina con intervento 
automatico delie pompe 

• Controllo livello nafta e con- 
sumo del motore 

•Controllo dell'ottimizzazione del- 


le vele 

•Interfaccia con il satellite, con il 
Joran, con 11 radar ed II radiogo- 
niometro 

•interfaccia con il pilota automa- 
tico 

• Interfaccia con la radio VHF e 
HF con emissioni in FM, SSB, 
RTTY e Telegrafia 

• Calcolo del punto nave con l’u- 
so del sestante 

• Manuale d'uso degli strumenti 
di bordo 

• Il meccanico di bordo 

• Il medico di bordo 

• il cuoco di bordo 
•Controllo del timone a vento 

• Interfaccia con centralina elet- 
tronica mete reo log Ica, con stru- 
menti del vento, con il log e la 
bussola elettronica 

«Stesura del giornale di bordo 

• Magazzino attrezzature 

• Indicazione della forza del ven- 
to, del mare e delle maree 

• Videotel 

• Collegamento diretto con la 
terraferma a una banca dati 

• Interfaccia con l'ecoscandaglio 

• Contabilità per la barca 

• Giochi 

• Portolano 

• Programmi per la realizzazione 
delle vele 

• Programmi per la realizzazione 
dello scafo 


• Ricezione immagini tramite 
facsimile 

•Manutenzione programmata dei- 
la barca 
•Antifurto 

• Controllo rotazione della barca 
all’ancora e relativa lunghezza 
della catena in relazione al fon- 
dale 

• Segreteria telefonica compute- 
rizzata 

• Trasmissione programmata di 
messaggi 

• Controllo incendi a bordo con 
attivazione estintori 


Chi è Giorgio Moser 

Regista, laureato In giurispru- 
denza, giornalista professionista, 
critico cinematografico, Inviato 
speciale. Aiuto regista di Germi, 
Blasetti e Edgar Ulmer. 

Ha realizzato più di 30 documen- 
tari In Africa e In Asia, fra cui I 
più significativi sono: “Il pesca- 
tore e la ballerina”, “È nata una 
stella", “Sut Nume dei leopardi”, 
e “GII zingari del mare”. 

Ha diretto i filma quali ad esem- 
plo “Continente perduto”, “Un 
po’ di cielo*’, “Calypso, violenza 
segreta” e “Un reietto delle iso- 
le”, premiato a Sorrento. 

Ha diretto diverse serie televisi- 
ve; tra te altre: “Vado a vedere 11 
mondo, capisco tutto e tomo”, 
“Sulla rotta di Magellano”, “Le 
montagne della luce”, “Le dieci 
Incarnazioni di Vlshnù" e “Av- 
venture africane di un bersaglie- 
re ciclista”. 

Ha pubblicalo I seguenti libri: 
"Alla scoperta di Magellano” 
(Fabbri), “I pascoli del sole” 
(Mursia), “Il viaggio di Magella- 
no" (Mursia), “Passaggio a Sud- 
Est” (ERI) e “Le montagne della 
luce” (ERI). 

Trentanni di viaggi quasi inin- 
terrotti fra Africa, Asia, America 
e arcipelaghi del due grandi Ocea- 
ni lo hanno Indotto a costruirsi 
una barca- la bora torto (due albe- 
ri, 18 metri), perfettamente at- 
trezzata per le riprese. 
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f, j Ma quando arrivano i$NN dei lettori? 

7 Ecco qui, già da questa terza puntata di Cornucopia una 
piccola raccolta di $NN tutta redatta da Voi lettori. 
Alcune kJee sono sono ottime, altre un po’ meno, altre 
ancora, un po’ “scarsine’ \ Ma non diamo giudìzi avventali. 

Infatti, come ho già avuto modo di dire: tutto può servire e 
ridea dì qualcuno può andare altrettanto bene per un altro. 
Quindi voglio tare ì miei compimenti (uniti ai miei 
ringraziamenti) a quel numerosi lettori ette, penna alla mano, 
hanno inviato i propri elaborati. 
Cosa devo dire d'altro? Continuate cosi! 
La rubrìca Cornucopia è Vostra In tutto e per tutto, con 
un'unica eccezione: il mio controllo di validità ed esattezza 

delle notìzie. 
Continuate ad inviare I vostri $NN a: 
Spati furiata COMMODORE 
rubrica Cornucopia 
Gloriano Rosai 
Viale Famagosta 75 
*<<_„ 20142 Milano 





SIC 

Espansione © no! Per far partire un programma non espan- 
so con l'espansione inserita nel V)C 20 bisogna battere: 
POKE 43,0 
POKE 44.32 

e controllare con ta PEEK 
PEEK (43) 

PEEK (44) 

L'indirizzo di partenza di un programma Basic che utilizza una 
espansione superiore ai 3K è 8192 e si ottiene calcolando il 
valore delia locazione 44 * 256 + il contenuto della locazione 
43. 

(Luciano Rossi I2EAY) 


$1D 

Routine pdf Interrogazione joystick» Ecco qui una breve rotiti- 
nes utile per sapere in che posizione è stato spostato il 
joystick. 

100 POKE DD.127 P-PEEK (P2) AND 128 
ttO J0*-(P~0) 

120 POKE DO,255;P-PEEK(P1) 

130 J1«-(PAND8)-0) 

140 J2^*(P AND 1S}“0) 

150 J3=-(PAND4)-0) 

160 IFJQ®1THENX~X+1 
170 IFJ1-1TOENY-Y+1 
180 IFJ2=1 THENX-X-1 
190 IFJ3~1THENY~Y-1 
200 IFY > 112THEN Y»112 
210 IF X > 136 THEN X-136 

(Luctano Rossi 12EAY) 


$1E 


530 REM * CURSORE * 

540 REM 

550 POKE 7B1,RI:POKE 782. CO 
560 SYS 65520 
570 RETURN 

In questo rftotìo, la scritta Commodore verrà visualizzata a 
riga lOeco tanna 15 deilo schermo. 

foraneo Silvestri & Dario Ranetti) 


$1F 

Load Errar, Se dopo aver caricato un programma da casset- 
ta compare il LOAD ERROR e*è ancora qualche speranza di 
salvare qualche cosa. 

Provare a dare il LIST, se il programma non presenta segni 
strani allora è fatta! 

Non date RUN ma battete in modo diretto: 
POKE45,PEEK(831): POKE47J PEE K(83 1 ) 
POKE49,PEEK(831): POKE46 p PEEK(032) 

POKE48, PEEK(832) : POKE50,PEEK(832) 

Ora il programma è salvo e potete registrarlo nuovamente. 

(ANtonio Adorno) 


$20 

Simulazione comandi da tastiera 064. In pratica sfrutta il 
BUFFER della tastiera dove si possono depone fino a dieci 
caratteri (dovendo mettere anche il RETURN per mandare in 
esecuzione il comando avrà al massimo nove caratteri): 

10 L*LEN(C$):FORI=1TOL:FOKE630+1 P 
ASQMIDS (C$ P 1,1)):NÉXT 
20 POKE630+I,13:POKE 190.1+1 
Il comando dovrà essere inserito nella variabile C$ 

(Antonio Adorno) 


PRINT AT. (nt)L La maggior parte dell'utenza Commodore 
dimostra non gradire l'uso eccessivo dei tasti per il posiziona- 
mento del cursore poiché, creando degli strani simboli non 
rende agevole la lettura e la comprensione di un listato di 
programma, 

A tale scopo si può facilmente ricorrere all uso della routine 
“PLOT T del kernel II suo utilizzo permette di simulare effica- 
cemente la nota istruzione BASIC PRINT AT (ri. co) oltre che 
una nuova versione della INPUT, una INPUT AT (ri,co) 

Il seguente listati mostra il suo uso. 
10RI=1Q:CO-15:GOSUB500 
20 PRINT '‘COMMODORE*' 


$21 

Tasti funziona (VIG 20 e C64). Se dopo un GET di attesa per 
un comando da tastiera come ad esempio: 

10 GET A$:IF A$— ""THEN 10 

inserite una GOSUB 100, il programma darà in uscita dalla 
su broutine il numero corrispondente al tasto funzione premuto 
sulla variabile F; se si preme un qualsiasi altro tasto si ha 
invece il valore 0 (esclusi l tasti CTRL RESTORE. SHIFT e 
RUN STOP). Per vedere come funziona aggiungere: 

20 PRINT FtGOT0 10 
La subroutine é la seguente: 


S00 REM — 

510 REM * SUBRUTiNE 
520 REM ‘POSIZIONAMENTO 


1 00 K=PEEK(1 07): SH«PEEK<653<AND1 
110 F=-(K=4)-3‘ (K-5) -5* (K«6>-7‘ (K-3) 
120 IF F>0 THEN F-F+SH 
130 RETURN 


(Antonio Adomo) 
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Trovar* l'afrore n*l DATA* Di solita nei programmi con 
motti data succeda dì sbagliane la copiatura; se si scrive un 
DATA maggiore di 256; si ottiene un ILLEGAL QUANTfTY 
ERROR; che solitamente d fa impazzire per trovare quello 
errato. Il nostro CBM-64 può però aiutarci nella ricerca in 
quanto sa dove ha trovato remore. Per cui dopo aver avuto la 
segnalazione di errore digitare in modo diretto: 

PRINT PEEK (63)+PEEK (64r256 

ed ottememo i! numero di riga in cui si trova il DATA errato. 

(Anton# Adorno) 


se piacere il BASIC deir interprete dei C64 può sempre prova- 
re con: 

FORJ = 4O960TO4915V POKEJ.PEEK (J): NEXTJ POKE1, 
54 

Cosi facendo il BASIC è stato ricopiato dalla ROM nella RAM 
sottostante. Ora si pravi per esempi: 

POKE41469.66 

Il computer dovrebbe scrivere BEADY invece di READY. 

Per ripristinare le condizioni originali basterà digitare: 
POKE1.55 

(Marco Melloni) 



$23 

AUTORUM p*r disco. Un solo insieme di comandi ci permet- 
te di scrivere RUN +RETURN dopo il LOAO, d basta intatti: 
LOAD"nome prg.".8:SHIFT+RUN STOP 

(Antonio Adorno) 


$24 

Mwg« per C84. Il tutto è molto tedia: per lare il MERGE (la 
fusione) di due programmi si opera cosi: 
avuto in memoria il primo programma battere: 
POKE43.PEEK (4S)-2:POKE44.PÈEK(4S> 
caricare normalmente il secondo programma e quindi rimette- 
re tutto a posto battendo: 

POKE43.1 :POKE44,8 

(Antonio Adomo) 

$25 

PRINT AT con SYS (nJQ. Volendo simulare in modo chiaro 
l’istruzione PRINT AT. sul C64 si può ricorrere a: 
100POKE21 1 X POKE214.Y: SYS50732: 

PRINT "quello die vuoi” X e Y sono ovviamente i valori di riga 
e colonna. Non devono superare rispettivamente 40 e 24. 

(Merco Melloni) 
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O se u remante. Per rendere più veloci I programmi in BASIC, 
specialmente durante la lettura di massicce quantità di DATA 
si può mandare in “BLANK” il video. Per fare dò digitare: 
POKE 53265 .PEEK {53265) AND239 
Per riattivare k> schermo digitare invece: 

POKE53265.PEEK (53265) OR 1 6 

{Marco Maitont) 

$27 

Modifichiamo I* paiola BASIC. Se a qualcuno non doves- 


$28 

Altre Inakfle del BASIC (il manuale ne paria ma...). A volte 
nei redigere programmi si usa assegnare alle variabili dei 
nomi, anziché lettere senza significato, per riconoscerle facil- 
mente: bisogna stare attenti a non inserire involontariamente 
parole BASIC ad esempio: 

QUESTO-3; PRINT QUESTO 
SIF0NE-4: PRINT SIFONE 
PRENOTA- 5: PRINT PRENOTA 
TENDA— 6: PRINT TENDA 

TO, IF* NOT. END negl* esempi danno il SINTAX ERROR, 

(Riccardo tuitani) 
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I limiti dall'elaboratore. Se provate ad inserire comandi 
come; 

10 FORT— 11025: PRINT T 2; NEXT 

oppure 

10 INPUT A 

20 IF SQR(A)- INT (SQR(A)) THEN PRINT 
SQR(A): END 
30 PRINT A 

otterrete risultati a prima vista sconcertanti. Nel primo caso 
invece del numeri interi ne verranno mostrati alcuni decimali. 
Nel secondo caso il vostro computer, se inserite un quadrato 
perfetto come 9, stamperà quest'ultima cifra eseguendo quin- 
di a torto la linea 30, invece dì fermarsi alia linea 20 dopo aver 
stampato 3, 

E 1 chiaro che non vi sono errori di sorta, e che le linee BASIC 
proposte sono formalmente cornette. L'arcano à spiegato dal- 
le limitazioni proprie dell'elaboratore (in questa caso del BA- 
SIC residente) le cui approssimazioni portano errori di questo 
tipo. 

Nel primo caso è sufficiente scrivere: 

10 FORT-1 T025: PRINT 1NT(T2): NEXT 
Nel secondo caso potremo aggirare l'ostacolo, appesan- 
tendo però un po' le cose, usando la funzione stringa STR$: 
10 INPUT A:R— VAL (STR$(SQR{A))) 






20 IFR-INT(R) THEN PRINT RENO 
30 PRINT A 

T urto funzionerà corretisrnerue, 


(Dtno Ttc&) 


programma 


(Andrea Bartotiru) 
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Scrool tu V1C 20, E' simpatico dar vita ad ixi proprio prò- 
gramma facendo acomparire a ricomparire I video lentamente 
e gradatamente insieme a tutto ciò che vi compera, d mìo 
programma offre questa possibilità Ecco B t 
10 R I*U * * 

15 REM v video verso il basso 

20 REM 

30 PRlNT"ICLRI M :A-39 
40 PCDKE 36881 AA«A+1 
50 FOR T— 1 TO 30:NEXT T 
60 IF A- 153 THEN GOTO 80 
70 GOTO 40 

80 REM * t *** ,w * , * , *** # * m ** ,# ' 

85 REM 4 video vero l'alto 4 
80 REM 


100 PQKE36881AA-A-1 
110 FORT— 1 T030:NEXTT 
120 1F A— 37: THEN END 


130 GOT0 100 

Questo programma gira sul V1C 20 ma può essere adattalo 
anche sul C64: si può «nsenre in qualsiasi altro p rogram m a 
come maschera tomaie o Anale e cN più m ha più ne mena S* 
esce dai programma tramite la riga 120, cioè quando il vteao è 
tornato alta condizione normale, ai regola la velocità di discesa 
e di salita rispettivamente nelle righe 50 e 1 10. 

(MmtoQtimperi) 
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L am peg g ìo, Ecco come tare far lampeggiare una scritta (non 
più di 39 caratteri) sempre al centro dello schermo 

10 N5— “PIETRO" 

20 PRIMT SPC(200+C3©-LEN(N$Ì)/2)N$ 

30 FOR X— 0 TO 500'NEXT : PRINT *[CL RJ“ 

40 FOR Y-OTO 500 NEXT GOT0 10 
La velocita di lampeggiamento dipende dai cidi FOR/NEXT 
nelle righe 30 e 4Q Naturalmente possono essere aggiunti per 

11 colore della scritta e/o cambiarne la posizione definita in 20, 

/Astro Marami 
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La riga fantasma. Già presentata nel SOC è più teatrante 
ottenibile con l'uso dei ta : M . 
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PRIMI AT mnm SYS (nJ). Si può ottonerà una sona dei 
comando PRINT AI usando la locazione 214 La linea di 
programma che segue permetta di stampare una stringa a 
partire dalla posizione riga -colonna (X,Y) desiderata 

N.B: andando a stampare, netruittma nga interviene lo 
scrool automatico verso l'alto dammara pagina, 

10 POKE2 1 a.Y PRINT^^PRINTTABfX)" 

[upF 'messaggio" 

Dove: 

Y= riga (0-24) (24 aziona lo aaool) 
x-coionna (0-39) 

Esempi: 

10 PRINT "[CLRJ":REM PULISCE LO SCHERMO 
20 POKE2 1 4, 0: PRINT “ , :PRlNTTAB(0rtupl" ,< CIAO" 
Questo programma stampa ad Home (0,0) la scritta CIAO, 

(Andrea Boftotsni) 
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Truechattf par II VtC 20. Ecco alcuni interessanti effetti 
Ottenuti con te seguenti locazioni di memora del mo V>C 20 
POKE 772,0 Usta di un programma solo i numan ùt nga 
POKE 788220: Eumene il lampeggio del cursore. Utile nella 
stesura dei pro g ram m i per chi fosse disturbalo dai pulsante 
Unica avvertenza n prestinai re la locazione originane pnma di 
mandare in esecuzione ri programma. 

POKE 788220: Come sopra però rascia ti segno dei cursore 
ad ogni RETURN. Potrebbe essere utile per delatore H fine 
riga, 

POKE 788,235 Elimina tl cursore 

Il ripristino dette locazioni originarie si ottiene naturalmente 
premendo contemporaneamente i tasti RUN/STO P e 
RESTORE 

(Giacomo Calabrese; 
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FOR... NEXT. In una serie di cidi FOR. . . NEXT concatenati 
invece di ripetere il NEXT si può operare nei seguente modo: 
Metodo tradizionale 
10 FOR NI T0 10: FOR B» 1 TO 20 
20 NEXT, NEXT 
Alternativa alla riga 20 
20 NEXT B.A 


tGiuix>S&nm) 


L’AGENDA PER GLI 
APPUNTAMENTI 

di Francesco Gatti 



La memoria è sempre stato un pro- 
blema par lutti, chi più chi meno. 
Neanch'io faccio eccezione, tanto a 
vero che sono un maestro nel far 
nodi ai fazzoletti, uno del miei hobby 
preferiti. Altri siatemi che adotto’ 
annotare su pacchetti di sigarette 
che si accumulano solfa scrivania, 
foglietti adesivi con 1 Quell (spezzo la 


mia stanza e la macchina, piastrelle 
disegnate con pennarelli. 

In som ma metodi motto efficaci sen- 
za e quali scorderei parecchie cose. I 
problemi sorgono però quando si 
tratta di ricordare appuntamenti a 
lunga scadenza; t foglietti, conte- 
nenti informazioni scritte magari co- 
si velocemente da sembrare scara- 


bocchi, ritenute gì* scadute, vengo- 
no inesorabilmente buttati tanto che 
un fatto come il pagamento dei bollo 
della macchina avviene sempre ai 
pomeriggio dell'ultimo giorno con- 
sentito, oppure il passaporto neces- 
sario per l'estate diventa inutilizzabi- 
le per mancanza di marche da bollo 
ecc. eco. 
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Per questo uno dei primi programmi 
che feci sul COMMODORE C$4 fu 
una specie di DATA BASE, cioè un 
archivio nel quale annotavo I vari 
Impegni e II memorizzavo di mese in 
mese 

Data la mia memoria di massa, quel- 
la cioè di colore grigiastro, che si 
perde i bit con una facilità estrema, 
ogni Inizio settimane consulto la ta- 
bella del mese, che mi informa in 
quali giorni ho un impegno. Quindi 
richiamo I giorni più prosarmi, a tro- 
vo i messaggi che contengono le va- 
rie pagine e... non tiro più 'bidoni'. 
Da questo programma ho ottanuto 
un altro vantaggio, retrospettivo. 
Infitti alla domanda Dove ero quei 
giorno?' so rispondere con esalezza 
evitando cosi della 'gatte* 1 . 

Come Funziona 

Un programma che deve ricordare I 
giorni dal mese precedente e nello 
stesso tempo magari i giorni dell'an- 
no successivo, deve contenere per 
forze un calendario perpetuo, o qua- 
si, Quasi perchè semplificò i calcoli 
In maniera tale da avere un controllo 
valido dal giorni fino al 1 999: più che 
sufficiente direi, il cuore de) pro- 
gramma perciò è sito dalia linea 234 
alia 322. LI primo passo per II calcolo 
da effettuare A accertare se un anno 
è bisestile o meno. La semplice for- 
mula per stabilire ciò è contenuta 
nella riga 220: se Tanno è bisestile gli 
ultimi del mesi saranno uguali alla 
stringa G2t 

Quindi si passa alla determinazione 
del nome del primo giomo del mese 
(righe de 24* a 250} in questo modo 
sono solo i nomi del giorni a ruotare 
ogni mese, mentre la griglia delta da- 
ta è sempre uguaJe^rmnna^ per le dite 
dsi 29 in avanti. In questi casi infatti 
occorre vedere quanti giorni In tota- 
le ha LI mese (variabile GA) e me- 
diante le lìnee 2S4-300 e ts routine 
da linea 314 a 322 vengono stampati 
I giorni successivi al 29. 

Par quanto riguarda il resto de? pro- 
gramma. si può affermare che nulla 
è di speciale. Molte ruotine» sono 
•tate da me già usate per i pro- 
grammi precedentemente pubblica- 
ti. Cosi ad esempio la procedura di 
inseri mento appunti che non è altro 
che la titolatrice un pò modificata 
(Commodore n. 2). 

Per lo spostamento verso il basso hg 
usato la sub-routine di linee 3ÓB-310. 
alla quale bisogna passere' la varia- 
bile B con valore uguale a quanti sal- 
ti verso il basso vogliamo effettuare 
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Come si usa 

Il programma è composto da un solo 
menu, dal quale possiamo scogliere 
le seguenti opzioni; 

• iniziai miai ione 

• Inserimento 

• Visualizzazione 

• Archiviazione 

• Lettura 

• Calendario 

• Fine 

La prima aziono da eseguire è quella 
dì servirci deN'opzlone Iniziai rzza- 
zione ohe permetterà di far presente 
al programma di quale mese volete 
effettuare le operazioni. 

Quindi premendo il tasto 2 si sceglie 
il giorno nei quale vogliamo memo- 
rizzare un determinato messaggio; 
sarà sufficiente impostare la data 
desiderata e apparirà sullo schermo 
una finestra sulia quale possiamo 
scrivere i nostri appuntamenti o le 
nostre annotazioni. Quando si è 
terminato di scrìvere il messaggio, 
premere il tasto f unzione ' F7' per po- 
ter ritornare al menu principale (in- 
fatti il tasto RETURN non viene con- 
siderato), 

£ possibile, tramite l'opzione Calen- 
dario, accertarci in quali giorni del 


mese sono state inseriti dei commen- 
ti, Per questa ragione tutte le date 
poste in 'reverse* vi indicheranno 
che lì ci sono delle annotazioni. 

Una volta terminata l'operazione di 
inserimento premete il tasto 4. Dai 
dati inseriti durante riniziafizzazione 
il programma memorizzerà gli ap- 
puntamenti col nome del mese pre- 


scelto. 

Per quanto riguarda la lettura di dati 
occorre procedere nel seguente mo- 
do; prima premete il tasto t , inserite 
il mese e l'anno, quindi II tasto 5. Fat- 
to ciò servitevi dell'opzione 3. 

Tutto qui! Ed è proprio la semplicità 
del programma che ne permette l'u- 
so frequente. Parola di utilizzatore. 
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REM 

l#W*M*M*##** 

******* 

143 

NO 4 ■ 0 > = " r RVS 3 C G I ALLO 3 D0HEN T e 

192 

REM 

* AGENDA APPUNTAMENTI * 


A C RVOFF 3 [ B I ANCO 3 ' 

1 0*4 

REM 

****+**+;***:#***#£ 


142 

NMS < I ;<= ,l i‘ifc'NNftIO" : NM$.:2 j="FFBF 

10t 

REM 

♦AUTHOR SOFTWARE 



RAID" 

ì 03 

REM 

* GATTI FRANGE 

SCO $ 

144 

NMS v 3 j = " MARZO" ; NMS <4 > = " API? Il E 

110 

REM 

* * ¥ # 4 :* * ¥ * * * * + :* * **** ¥ 



112 

REM 

* COMPRI T IBILI 

1W $ 

146 

NMf < 5 > = " MA Gì G IO" NMì < 6 ) ~ " A I ! JfiN 

114 

REM 

* Vie 20 

NO * 


0” 

1 16 

REM 

* vie 20 +EKP 

SI * 

1 48 

HM*<?> = "LUGL. I O " ; NMS ( 8 > = " ACOST 

118 

REM 

$ C64 

S 1 T 


0 !1 

120 

REM 

* Ci 6 

Sì * 

ICS 

mi- < 8 > * " SETTEMBRE 11 1 NM£ < 1 8 ? « 13 0 

1 lui 

REM 

PLUS 4 

Si * 


TTOBRE" 

124 

REM 

$ SERIE 4000/8000 

si # 

152 

NMS < 1 1 > ■ " N O 1 VENERE " NMS ( J. 2 >*=" D 

126 

REM 




I GEMERE " 

128 

sin 

NMS ( 1 2 > , AP*<32<2> 

• FL- 31 •' 

154 

ME# v e > = " AGENDA APPUNTAMENT I " 

130 

b.t u* 

«"C24 DONNI" 


156 

ME$ 1 > = 11 1 [ DOWN 3 C RVS 3 I C RVOFF 3 

134 

MG*< 

I > a "LUNEDI " " ' HG$< 

2 ) — ■“ MARI 


INIZIALI 2ZAE I ONE " 


Eiir 

11 


158 

ME*(2>“"CRVS3 2 t RVOFF 3 IN 

136 

NG$ 

31-=" MERCOLEDÌ f " : Mi 

3^(4.)=”G 


SERI MENTO" 


I OVE 

DI 


160 

MES(3>="CRVS3 3 [RVOFF 3 VI 

1 38 

NG ì 

5 VENERDÌ " : NG$ 

CO**" SAI 


SU ALI ZZACI ONE" 


RIO" 



162 

ME$K4>=" CRVS3 4 [RVOFF 3 AR 


Commodore - T5 




'0 ME$ < 8 > = " C DOWND PREM I UH TASTO 
'2 REM ## li*## ###$#### 

•A rem a* INIZIO PROGRAMMA £$ 
'$ REM sif#***##**########'######* 


**#*###*.#***#****i(e*** ; fti(5* 
*f. STAMPA GIORNI M* 

•.¥. s|( ■£ Ai * ,<!■ sii j M; # ¥ # i|: $ $ & iti '*■ * & 5(C 

!T: 924 


REM **#*####*##**#*#*#**#*#* 
REM * STAMPA URTA W- 
REM *^#*###**#***#*#******** 
FRINÌ” CHOME3' 1 


270 P=Ì6 

272 I- CHR A-j T 0 28 : I F R==S OR A=l3 
OR 0=22 THEN GOSUB 312 : FRINÌ" 
[ HOME 1 " : B=5 : OOSt !B 308 

274 IR FL<fì>=l THEN PRIMI TRBtPJR 
EViH ' GOTO 278 

276 PRIMI TRE ( P ; R 

275 PRIMI 
288 NENIA 


i g g p £ m * *:*:$#***$* $ ih $ % :# * 

192 REM m INIZIAI IZZflZI ONE *'+ 
1 =:J PEfrf & 3 : fc# * # # # 5*: # jf £ iti $ # jfr $ * % #■ # 

196 FOKE 5328G.' 6 : POKE 53281,6 
198 PRIMI’ 1 [CLEflR]" 

208 FRINÌ TflB<8>ME$<0> 

2R2 B~4 : GOSUB 388 
2 8 4 PR I N T TrlB < 4 >"I NSE R I SC I ANNO ■ 


:8 THEN 



1 

Mi! ! 

1 i 

lill;! 

MH 

■ I 

LJ 

1 • I L_ 

n r 4 


r 1- 


re- Commodore 



THEN 302 


302 CE" A* !, ■" A**"" fHEN 302 
t* l i -'AF.Z+W.i 

303 5 * 3 re :..'6 

30 :3 ?f-L ET T ? *. G 1 4- .■ Ti .> 
pp r r'TSi VLIURN 
V: “••-p* 4 'RETURN 
3-4 CR=0A+1 
Gl e I?' ORGS THEN CffcO 
318 T CftCQ THEN Cfi=6 
■320 PAINT ■ FRI NT ■ PRINT TRB<2) ; NG*< 

:jO . ; c ; pr , - ) 

322 OGSs’GGS+STR * <CP > RETURN 


LL 03 GIORNI IN -'RVS3 REVERSE 
il . . J BIANCO 


326 PRINT ■ ■ 

r p 

VOFF ] - 

323 POR S*0 TO 14 
330 F'RIMT" ERVS3 CRVOFF; 

r ga 

VS: CRVOFF 3" 

332 NEXTS 
334 PRINT" [RVS3 

CRVOFF j “ 

336 PRINT ; PRINT TRE té) "PREMI UN T 
FiSTO PER CONTINUARE" 

338 PR I NT " [ MONE 3 11 RETURN 

340 REM ************************ 

342 REM ** MENU PRINCIPALE ** 

344 rem ************************ 

345 POKE 646 , 1 : POKE 53280, 6: POKE 

\ j £ 

348 PRI NT " C CLEftR I " = FRI NT TflB < S > ME 
$<0> 

353 FOR J=1 TO 8 : PRINT : PRINT TRB< 
3>ME$tJ> ■ NEXTJ 

352 GET SCi : IF SC$='‘" THEN 352 

354 X=VALtSCi> 

356 IF Xtl OR X>8 THEN 360 
358 ON NGDTO 196.. 386,534, 462, 484, 
234,379 

360 PR I NT ThB C J. 3, ) "C DOMH 1 1 0 1 ALLO ] C 
R V : ] N OH PREV 1 3 TO C R V OFF 3CBI R 
NCO] " 

362 FOR Ft=0 TO 400 ' MENTA : GOTO 346 
36 4 REM 4: ** ** **** * * 4 * * 4 ** ****** * 
366 REM +* FINE PROGRAMMA ** 
368 REM ************************ 
378 PRINT "L OLE HRJ"B=7 GOSUB 388 
372 PRI NT" HAI MEMORIZZATO I DATI? 


cc CI DC'PMT 'T^ 1 ' 

374 GET F$ : IF Fi=" " THEN 374 
376 IF Fi= " F “ THEN PRINT"ECLEAR3" 
: E MB 

378 GOTO 346 



338 REM ***************** ******* 
382 REM ** INSERIMENTO APPUNTI * 

3 34 REI* ! ** ** * * * ** * * * ti * * **** * **** 
386 PRINT "'tCLEflR] M PRINT TfìBtSJME 
$<- 0 ) 

388 06**" 00 " : B«4 ■ GOGNE 386 
390 PRI NT "PER QUALE DATA DESIDERI 
FARE APPUNTI : " 

392 PR INI PRINT TRB< 4 > 66* ; " / " ; ME* 
• ; FINÌ, 

394 INPUT "110 LEFTT" , Gf 
396 GQ$~LEFT f t 04 , 2 > 

398 Gft-VRL < M I H$ < XX* , ME*2-1,2 > > : 66 
-VALÙjGT > 

480 IF GOTI OR COCA THEN GGJ= " " : 

GOTO 346 
482 FLtG6)=l 

484 IF 06=1 OR GG=3 OR 00=15 OR G 
0=22 OR 00=29 THEN D-l 
406 IF 00=2 OR 00"- 3 OR 00=16 OR 0 
6=23 OR 00=30 THEN B=2 
488 IR 66=3 OR 00=18 OR 00=17 OR 
00=24 OR 06=31 THEN D=3 
410 IF GG=4 OR GG=1 1 OR 00=18 OR 
00=25 THEN D»4 

412 IF OC =5 OR 06=12 OR 00=19 OR 
00=26 THEN B=5 

414 IF 00=6 OR GG=] 3 OR GG=2© OR 
60=27 THEN D=6 

416 IF 00=7 OR 00=14 OR 00=21 OR 
00=28 THEN D=7 
418 V1=VAL<MID$C0G$,D*2, 1)> 

420 PRI NT" [OLEARI" -PRIMI TRE 1 -' 8 > ME 
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422 B=1 : GOSUE 308 
424 PR I NT IRE C 5 >HGÌ< V 1 >GG ; NM$ ( ME > 
;RN 

426 GOSUB 514 
428 B=6 : GOSUB 368 
430 PRIMI TRE C2) 

432 GET P$-IF Pì=" " THEN 432 
434 IF PÌ=CHR$< 136 > THEN 452 
436 IF PÌ=CHR$C20) THEN 432 
438 IF P*=CHRìa3> THEN 432 

449 PRINTF-f; 

442 APÌ=RP$+P$ 

444 IF LEM CAPÌ >=35 THEN PRINTCHRÌ 
< 13) : PRINT TR£<2> 

446 IF LEH<fiPì>=70 THEN GOSUE 454 
448 IF 0=3 THEN 458 

450 GOTO 430 

452 APì < GG , 0 ) =RFì - 0=0 : GOT 0 4 58 
454 APÌ < GG , Q > =AP$ Q=Q+ 1 : APÌ= " " 

456 PR I HTCHRÌ < Ì3> - PRI NT TRE < 2 > ■ RE 
TURN 

458 AFÌ<0, 0)=" " : FOR 1=1 TO 31-RPT 
(0, 0)=RPÌ<8. @)+STRÌ<FL< I >) : NE 

XTI 

460 RPÌ= " " : 0=0 : GOTO 346 

464 REM m ARCHIVIAZIONE i* 

466 REM S******^#^#**#**!»'^**# 
468 OPEN 5,8,5, " 00 = " +F 1 $+ " , S , U ” 
470 FOR B=8 TO 31 

472 FOR 1=8 TO 2 
474 PR I NT #5 , APÌ < H , I > 

476 NEXTT 

473 NEXTD 

480 FOR E=0 TO 5 ; PR I NT #5 , " " : NEX 
TE 

482 CLOSE 5 -GOTO 346 

486 REM ** LETTURA ERTI ** 

488 REM 

480 D=0: T=S ; H=0 

492 OPEN 5 ,8,5 , " 0 ■ " +F I $ + " , S . R " 

494 FOR T =0 TO 2 

496 IHPUT85, TTÌ : IF TT*»"#*" THEN 
T=3 : GOTO 500 
498 APÌ<D,T>=TT* 

560 NEXTT : I'=E+ 1 
502 IF ST=0 THEN 434 
504 CLOSE 5 

506 FOR G=1 TG 62 STEP 2 
508 H=H+1 


510 FL H ) =VRL < M I Dì < APì C6 , 0 > , G , 1 > . 
512 NEXTG : GOTO 345 
514 PRINT ; PRINT” CRV3] 

CR 

VOFFI ” 

516 FOR S=0 TO 14 
518 PRINT" [RVS3 CRV0FF3 

VSI CRVOFFI" 

528 NEXTS 
522 PRINT" [RVSI 

CRV0FF3 " 

524 PRINT : PRINT TRE <6- "PREMI UN T 
RSTO PER CONTINUARE CHOME]" 

526 RETURN 

528 REM **###*##*##%-**3|5***sf-**#<f-* 
530 REM ** VISUALIZZAZIONE ** 

532 rem *M*m*m*m**m*mm*** 

534 PR I NT " i CLEAR 1 " : PR I NT TAB < 8 ) ME 
$C0) 

536 E=3 ; GOSUB 308 
538 PRINT "QUALE GIORNO DESIDERI C 
ONTROLLRRE"; -INPUT F 
540 PRINT” [CLEAR] "PRINT TAB < 8) ME 
ì<0) 

542 B=1 GOSUE 308 

544 PRINT TRE C5 > MGÌ < V 1 > F ; HMÌ < ME ) ; 

AH 

546 GOSUB 314 
548 B=6 : GOSUE 308 
550 FOR L=1 TO 68 STEP 34 
552 ASÌ=M I Dì CAPÌ C F , Q > , L , 35 > 

554 PRINT = PRINT TRB<2)RSÌ 
556 HEXTL 
558 Q=Q+ 1 

560 IF Q=3 THEN 0=0 : GOTO 564 
562 GOTO 550 

564 GET A* IF Rf=" ,! THEN 564 
566 GOTO 346 
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IL COMMODORE 64 
AL MICROSCOPIO 


di Marco De Rosa 

j parte 2 a 


In questa puntata troverete la 
descrizione delle locazioni che 
vanno dalla 139 alla 197. Come 
di consueto le righe in neretto 
nella mappa completa sono de- 
scritte in dettaglio nel testo. 


Questa locazione contiene la va- 
riabile di sistema STATUS. In 
BASIC ST è una parola riservata 
e non può essere usata come 
nome di variabile. Il suo valore 
cambia se ci sono dei problemi 
nel caricamento da disco o da 
nastro, e può quindi essere uti- 
lizzata come flag. 

Supponiamo per esempio di do- 
ver leggere un file sequenziale 
da disco, senza sapere a priori la 
sua lunghezza. Una tipica routi- 
ne di lettura potrebbe essere la 
seguente: 


100 OPEN 2, 8, 2, “Q: NOME, S, 
FT 

110 INPUT #2, P (l> 

120 l=l + 1 

130 IF ST— 64 THEN 200 
140 GOTO 110 
200 CLOSE 2 
210 STOP 

L istruzione della riga 13G si ac 
eorge se il file è finito e inter- 
rompe il ciclo di lettura. Possia- 
mo quindi dire che Fuso di ST 
può sostituire l’Istruzione di 
ON ERROR GOTO assente nel 
BASIC del CBM 64. nel caso dì 
istruzioni di LOAD, 

In figura 1 potete vedere i valori 
assunti da ST al verificarsi delle 
configurazioni di errore. 

(152); Numero di file aperti 

Questa locazione contiene il nu- 
mero dei file contemporanea- 


mente aperti, Il numero massimo 
è dieci, dopodiché il BASIC bloc- 
cherà il programma comunican- 
dovi un TOO MANY FILES OPEN 
ERROR". Per ovviare a questo 
inconveniente nel caso vi trovia- 
te con un numero di files aperti 
vicino a dieci potete aggiungere 
le seguenti istruzioni prima di 
aprirne un nuovo: 

100 IF PEEK (152)^10 THEN 
1000 

1 1 0 OPEN 2, Q, 2, *0: NOME, S,R” 


1000 REM TROPPI FILES APERTI 
1010? “HAI GIÀ' 10 FILES A- 
PERTt" 
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(153-154): Dispositivo di I/O 

Queste locazioni contengono il 
numero dei due dispositivi di In- 
put/Output operanti attualmen- 
te. I valori di default sono 0 e 3 
che corrispondono rispettiva- 
mente alla tastiera e allo scher- 
mo, Il valore delia seconda loca- 
zione può essere cambiato da 
BASIC usando l'istruzione CMD 
dopo un OPEN, La sintassi è la 
seguente: 

OPEN t tn f dn, [sai 
CMD ifn 

Istruzione BASIC 

dove ifn=numero di file logico, 
dn=numero di device (dispositi- 
vo) , sa~indirizzo secondario, L'ifn 
può essere un numero da 1 a 255 
con alcune limitazioni die di- 
pendono dalla periferica usata 
(consultate la Programmerà Re- 
ference Guide), Usa è opzionale 
(vedi locazione 185 in questo ar- 
ticolo). Il dn dipende dalla perife- 
rica usata. In figura 2 potete tro- 
vare la lista dei numeri di device. 


Se per esempio volete mandare 
un listato sulla stampante (il cui 
numero è normalmente 4) potete 
scrìvere: 

OPEN 3.4: CMD3: LIST 

Ricordatevi di chiudere il file con 
il seguente comando: 

PRINT# 3: CLOSE3 

(da 160 a 162): Jiffy clock 

Queste locazioni contengono il 
cosidetto “Jiffy'' clock, cioè l'o- 
rologio che controlla le opera- 
zióni eseguite dal computer. Il 
più piccolo intervallo di tempo 
misurabile (Jiffy) è 1/60 dì se- 
condo. 

Il funzionamento è il seguente. 

• Ogni sessantesimo di secondo 
viene aumentato di 1 il valore 
della locazione 162. 

• Quando questo giunge a 255, 
viene riportato a zero e viene 
aumentato dilli valore della 161, 

• Quando anche questa giunge a 
255, viene riportata a zero e viene 


aggiunto 1 alla locazione 160, 

• Quando anche questa raggiun- 
ge 255 le tre locazioni vengono 
riportate a zero, 

fi perìodo totale del l'orologio è 
quindi di 16.581.375 sessantesi- 
mi di secondo, cioè 77 ore. 

M BASIC gestisce due variabili di 
sistema, TI e Tl$, controllate dal 
jiffy clock: 

• TI parte dal valore '000000" 
quando accendete il computer e 
viene aggiornata ogni sessante- 
simo di secondo fino a raggiun- 
gere il valore "SSOOOO'', dopodi- 
ché viene riportata a zero, 

•Tl$ parte anch'essa da "OOQOOO M 
ma viene aggiornata ogni se-t 
condo. Essa contiene l'ora nel 
formato "OOMMSS", dove OO 
rappresenta le ore, MM i minuti e 
SS i secondi. Se per esempio vo- 
lete mettere Torà alle 16 e 35 del 
pomeriggio dovrete scrivere: 

TIS = "1 63500' 1 

In ogni momento potete accede- 
re airorologio con una routine 
del tipo 

100 PRINT "(CLRj" 
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110 PRINT '[HOME]’'; TIS 
120 GOTO 110 

L'orologio è molto preciso fino a 
che non eseguite delle operazio- 
ni da disco o da cassetta. 

(1 67-1 8§-1 69-170-1 71 -180 
-181 -182-189): Area RS-232 

Il Commodore 64 possiede delle 
routine di sistema che permetto- 
no di controllare da BASIC tutti i 
dispositivi RS-232. Queste loca- 
zioni sono usate direttamente dai 
dispositivi attraverso le routines 
suddette, Esse contengono an~ 
che dati relativi allo svolgimento 
delle operazioni di cassetta e del 
bus seriale. Durante queste ope- 
razioni l'interfaccia RS-232 non è 
quindi utilizzabile: 

Per informazioni dettagliate con- 
sultate la Programmerà Referen- 
ce Guide. 

(174-175): Fine buffer in 
SAVE e LOÀD 

Queste locazioni contengono l'indi- 
rizzo da cui le routines di LQAD 
e SAVE cominciano a caricare o 
salvare r programmi BASIC. Se 
vdl cambiate le locazioni 45 e 46 
(inizio del testo BASIC) dovete 
assolutamente aggiornare anche 
queste con gti stessi valori. 

(185): Indirizzo secondario 
corrente 

ì 

Questa locazione contiene \l nu- 
mero dell'indirizzo secondario- 
dei file corrente. Questo numero 
viene stabilito neiroperazione di 
QPEN relativa a quel file. In figu- 
ra 3 potete vedere gli indirizzi 
secondari utilizzabili per ogni 
de vice. 

Se per esempio volete stampare 
un testo In carattere Maiuscolo/- 
Minuscolo invece di default Maiu- 
scolo/Grafica dovrete comuni- 
carlo alla stampante con l'istru- 
zione: 

OPEN 3. 4, 7 

seguita dalle istruzioni di- 
PRINTF3 necessarie 
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Figura 1: ì valori assunti da ST al verificarsi di configurazioni di er- 
ro re. 


Figura 2: i numeri di device. 
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Figura 3: indirizzi secondari utilizzabili per ogn* device. 
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HOC 

DEC 

DESCtKKME 

0OBB-ODBF 

139“ 143 

Volere del 'seme* della funzione RND. 

0900 

144 

di default 6 zero. Ir BASIC questo nome é 
riservato al sistema. II valore di ST 
cambia ss al seno del problemi nel 
caricamento di doti da disco o dal naotro. 

0091 

MS 

Flag: Tasto di STOP e di RVS. fi suo valore di 
default è 255. L'ietruzlone POKE 145,127 simula 
l'azione del taeto RUN/STOP. 

0092 

146 

Costanti di ttmpo p«r ti nastro. 

0093 

147 

Fìag:0-LOAO P MVERIFY. Memorizza t'ultima 
operazione di LO AD o VERIFY del disco o del 
nastro. 

0094 

145 

Flag: buffer del caratteri In uscita dal bus 
seriale. 

Q095 

149 

Carattere bufferlzzato per 11 bue seriale. 

0096 

ISO 

Numero di sincronizzazione per cassetta. 

0097 

151 

Arsa por dati tsmporansl. 

0099 

152 

Numero di fila* aperti e Indici alla tavola 
dal ftleo. Potate tenere aperti fino e dieci 
fllee contemporaneamente. Se cercate di 
•uperare questo limite 11 BASIC risponderà 
con f) massaggio *TOO MANY FILES OPEN 

ENRON'. 

0099 

153 

Dispositivo di input df default. 

Normalmente è zero (Testiera). 

009A 

154 

Dispositivo di output (CMB) di default. 

Normalmente b tre (Schermo). 

0098 

155 

Carattere di parità del nastro. 

009C 

156 

Flag: Byte ricevuto dal nastro. 

0090 

157 

Flag: 128" Modo diretto, 0“ modo programmo. 

009E 

158 

Errore logico da nostro. Passo 1. 

009F 

159 

Errors logico da nastro. Passo 2. 

00A0-00A2 

160-162 

J1FFY Clock. 

OOA3-OOA4 

163-164 

Arsa dati temporanei. 

OOA5 

165 

Conto allo rovescia per 11 sincronismo di 
cassetta. 

00 A 6 

166 

Pointer: buffer di I/O do nastro. 

00A7 

T67 

Bits di Input per NS-232/Aroa temporanea 
per cassetta. 

00A8 

166 

Contatore del bits di Input per N9-232/Area 
temporanea per cassetta. 

00A9 

169 

Flag: controlla 11 bit di start per R3-232. 

00AA 

170 

Buffer di Input per byte In N3-232/Areo 
temporanea per cassetta. 

00AB 

171 

Parità di Input par RS-232/Contatore per 
cassetta. 

OOAC-OOAO 

172-1 73 

Pointer: buffer par cosastta/Scroll deio schermo. 
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HEX 

DEC 

DE SCRII ORE 

OOAE-OOAF 

174-175 

Indirizzo fino programmo per operazioni di 
SAVE e LOAD. 

DQB0-00B1 

176-177 

Cocenti di tempo per il nostro* 

QOB2-O0B3 

178-179 

Pointer: mulo del buffer di cassetto. 

008< 

180 

Contatore bit di uscito per RS-232/Area 
temporaneo per cassetto. 

0065 

ter 

Prossimo bit do inviare per RS-232/ Flag 
per End Of Tape 

ooss 

182 

Buffer per byte in uscito per RS-232. 

0QB7 

183 

Lunghezza del nome del file corrente, cioè lì 
numero di caratteri nel nome del file stesso, £ lo 
stesso coso che scrivere PRIN?{LEM(NOMÈt)} f 
dove ROMEI é il nome del file. 

OQB0 

184 

Rumerò del file logico corrente. 

0QB9 

IBS 

Indirizzo secondario corrente. 

008 A 

186 

Numero del dispositivo (device) corrente. 

0OBB-QOBC 

107-186 

Pointer: nome Cel file corrente. 

0080 

189 

Parità di uscita per RS-232/ Zone 
temporanee per cassetta. 

DOSE 

190 

Contatore di blocchi del nostro in lettura o 
scritturo. 

OOBF 

191 

Buffer per porto seriole. 

OOCO 

192 

Interruttore per il motore delio cassetto. 

OOCt-OOC2 

193-194 

Indirizzo di partenza per I/O. 

00C3-0OC4 

195-196 

Usati per nmmogozzlnomento temporaneo di 
informazioni durante il caricamento do cassetto. 





PROGRAMMAZIONE 

STRUTTURATA 
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In questa puntata continueremo il nostro viaggio 
attraverso la conoscenza delle Istruzioni BASIC, da 
un punto di vista strutturato. Prima però d introdur- 
re nuove istruzioni esam miniamo f tre tipi di dati 
elementari, cioè quelli che possono essere elabo- 
rati e/o trasformati per mezzo di operatori o fun- 
zioni. Sono: 

• NUMERI INTERI 

• NUMERI REALI 

• STRINGHE DI CARATTERI- 

(che saranno oggetto della prossima puntata). 

Numeri Interi 

Un numero intero è una grandezza numerica che 
viene rappresentata senza virgola, e fi cui dia- 
gramma sintattico è dato dallo schema che segua 



I numeri interi in memoria centrale vengono rap* 
presentati con 16 bit (cioè 2 bytes), Il più significa- 
tivo dei quali è quello del segno, f numeri negativi 


sono rappresentati in complemento a due (questo 
è un artificio che permette al calcolatore di effet- 
tuare l'operazione di sottrazione che altrimenti non 
sarebbe in grado di eseguire}. 



I massimo intervallo possimi# per gli interi è quin- 
di: 

min. int - -32768 
max. ini - *32767. 

Lo zero viene considerato positivo ed e quindi per 
questo che i numeri negativi posseggono una unità 
in più in valore assoluto. 

Numeri reali 

II numero reale viene rappresentato tramite 11 dia- 
gramma sintattico nel modo illustrato nello sche- 
ma seguente: 



dove "E" sta per moltiplicato 10 elevato a potenza 
n, mentre 11 punto rappresenta, nella notazione an- 
g I osa sse ne > I a vi rg o I a dec i male. 


Il "numero intero" in genere non supera le due ci- 
fre. Esempio: 

24.12.10 (-15)=24,12.E-15: 1.5: 12 

Un numero reale può essere rappresentato in una 
forma normalizzata secondo lo schema che segue. 



Un numero reale che non sì presentì in forma nor- 
malizzata. può essere trasformato in queat'uitima 
nei modo seguente: si sposta il punto decimale 
verso sinistra di tante cifre quante dovrà essere 
l'incremento di unite sul valore deiresponente. 
Esempio: 

50.12E-17 

portato in forma normalizzata diventa 
0.501 2E-15. 

A questo punto passiamo alia definizione di "varia- 
bile reale" che in pseudo-codìfica ha la rappresen- 
tanza riportata nello-schema seguente. 
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Espressione reale 2 e espressione reale 1 rappre- 
sentano gli estremi deli'fntervallo min. reale e max, 
reale. Se essi vengono specificati rappresentano, a 
livello di codifica, i limiti che sono imposti dai lin- 
guaggio. vengono anche usati nella fase iniziale di 
analisi del progetto quando non si ha ancora idea 
dal lìmite inferiore o superiore delia variabile con- 
siderata, o ancora quando questi due limiti posso- 
no delimitare un'intervallo il più ampio possibile. 
Precisione indica il numero di cifre significative 
che devono essere prese in considerazione. 
Espressione reale e espressione intera sono espres- 
sioni algebriche il cui risultato è rispettivamente un 
numero reale o intero. 



Rappresentazione dei numeri reali in BASIC 

Nel linguaggio di programmazione che stiamo 
esaminando, i numeri reali sono compresi nell'In- 
tervallo: 

NUMERI NEGATIVI: da -10 +38 a -10 -38 
NUMERI POSITIVI: da 10 -38 a 10 +38 

Per quanto riguarda la precisione (e qui sì intende 
il BASIC standard e non quello specifico del 
Commodore), vi sono due possibilità: 

♦ sìngola precisione 

♦ doppia precisione 

Singola precisione 

In questa rappresentazione vengono memorizzate 
non più di 7 cifre e stampate non più di 6, Come 
avviene per i numeri interi, in fase di stampa si ha 
sempre uno spazio bianco dopo la cifra più a de- 
stra e uno spazio bianco a sinistra del numero se 
positivo. 

Sul Commodore si ha solamente la singola preci- 
sione con 9 cifre. 

Doppia decisione 

In questa maniera vengono memorizzate e stampa- 
te non più di 16 cifre significative. Per quanto ri- 
guarda la stampa si hanno le stesse modalità viste 
per la singola precisione. 

Nello "schema 6 M viene riportata fa rappresenta- 
zione dei numeri reali in memoria centrale: 


A proposito della rappresentazione In BASIC dei 
numeri, bisogna precisare che fn matematica i 
"numeri interi" sono un sottoinsìeme (cioè una par- 
te) dei "numeri reali". 

Nei linguaggi di programmazione, invece, succede 
che questi due insiemi di numeri vengono trattati 
come classi distìnte a causa della loro diversa rap- 
presentazione e per il modo diverso con cui le 
istruzioni macchina generate dai linguaggio di co- 


difica trattano gli elementi di queste due classi in 
fase di utilizzo degli stessi operatori aritmetici. 

In matematica l'insieme dei numeri reali presenta 
uno spettro continuo di infiniti valori, mentre nella 
memoria di un calcolatore questi vengono rappro- 
sentati-con numero finito di cifre Tutto questo 
porta ad avere un numero finito di valori che pos- 
sono essere rappresentati con uno spettro discreto 
dt valori che porta, una volta scelta la singola op- 
pure ta doppia precisione, ad essere implicitamen- 
te determinato il minimo errore relativo che può 
essere compiuto. 



In applicazioni nel campo del calcolo numerico 
condotte con metodi interattivi, il numero finito di 
cifre genera errori di troncamento che si propaga- 
no verso le cifre più significative a cui è sottoposto 
uno stesso numero. 

Quindi ove sia possibile, è sempre opportuno con- 
frontare una differenza (o un suo valore assoluto) 
con un numero molto piccolo; il termine "piccolo" 
va scelto in maniera opportuna (differente cioè ca- 
so per caso), in quanto esso esprime da quale or- 
dine di grandezza in poi non abbia più senso, in 
situazioni particolari, tentare di apprezzare la diffe- 
renza tra due valori. Passiamo ora alfa descrizione 
degli operatori e delle funzioni in BASIC; 


Operatori 

In BASIC e negli altri linguaggi di programmazione 
le priorità degli operatori aritmetici nelle espres- 
sioni sono le medesime rispetto a quelle delle 
espressioni algebriche. 
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Operatore 

Commento 

Esempio 

— 

negazione 

- X 

A 

elevamento a potenza 

X A Y 

*,/ 

moltiplicazione, divisione 

X • Y. X^Y 

X 

divisione intera. 

X\ Y 

MOD 

modulo 

X MOD Y 

+ ,- 

addizione, sottrazione 

X + Y, X - Y 
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Per variare l'ordine di esecuzione delle operazioni 
devono essere utilizzate le parentesi tonde come 
avviene in algebra. 

Funzioni 

Le funzioni sono quegli operatori che, applicati al- 
rargomento racchiuso fra parentesi, restituiscono 
un valore che, se non viene specificatamente pre- 
cisato, è reale e in singola precisione. 

Qui di seguito vengono riportati i diagrammi sintat- 
tici delle funzioni più importanti nel BASIC, in cut 
per brevità di scrittura si indicherà con X, Y: 
(espressioni reali) e I. J: (espressioni intere) 

Riprendiamo ora ad esaminare le altre istruzioni 
BASIC. 


~~ ( c ni 


PRINT CINTAI 9») 
33 
OK 


Corti-Érte X i intero arrotondando I* 
parie ft ijjon ani 

Se X e comprerò oelTintf rva]|o-327óS) 
+ 32 76 7 si ha '"overflow 1- 


~~c g ° s y*(jy~ * 


PRIMI 2 *CGS (.4) 
i 34212 
OK 


Restituisce II coseno di X 

X e io radianti 

II) calcolo é tUfuitCì in 


^ cane y ~(jy~ * 


10 ft* - 975.342 1* 

20 PRIMI B* CSNG(B*) 
RUN 

975 5421 975.342 


Ctmvtne X a sempLice prccukwe 


— ( t*p ^ CLh * * n 


PRJMT EXP{4) 
54,5932 
OK 


Restituisce t (Dumeto di Ncpcro) i 
vatn alia x. 


Reitituiic c la pane interi umetta di X . 


PRJMT FLX B2> 

24 

OK 

PRINT FIX (-26 30 
-26 
OK 
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X. Yl < espressioni reali > 

I . J: < esprimo di intere >, 


— C * BS - 


PRIMI ABS (3 •(-#}) 
24 
OK 


Restituì ice il valore ìleoIluo di X 




PRIMI ATN (3> 
1.24905 
OK 


Restituisce raicotanteme di X. 

X e espresso io ridiano 

Il risultalo è flell'irt tendilo -7,; +7,, 

X putì essere di qualsiasi UpQ numerico 
ma ATN raucutsct il risultato in sem- 
plice precipue (sotto intcrprelc). 




IO A = 454 67 

20 PRINT A: CDBL (À) 

RUM 

454.67 454,6700134277344 
OK 


Cswvene X in i 
precisione. 


i numero in, doppia 


Flg.8.2 


— ( ’ hr M D-PT’CÌh 


PRlMT INI (36 99) 
36 
OK 

PRIMI 1NT (-23 29) 
“24 

OK 


Restituisce il piu grande intero < X 
(confiop.tare eoo FJX e ClNT). 




PRLMT LOG (6.42857) 
1.86075 
OK 


c Qua 


istruzione RAMDOMIZL 


— (^ftANOOMl2£^- 


Ré stitu tsce U logarimla naturale fili baw 
r) di X 

X deve estere maggiore di 0. 


Restituisce un punterò casuale reale con»* 
prèso tra ut 1. 

Per ogni ««uziooe òeJ profnmou vie- 
ti* deaerali la ttnsl sequènza di numeri 
t meno che duo venta utdiuna la 
istmiiopc RAMDOMiZE. 


li 


espressione 


u 


< eSpresSionr >, te Onesti, causi la rìehie&u: 

Raudom Munirei Secdl -32766 m + 32767)? 

L'istruzione permétte di cambiare la rèqoenu di mnneii casuali generata dalia 
funi ione RWD Ogni volta Che il progrunnii r eseguito 
Par oneoert numeri cuuaJ, nell' intervallo desiderato buia moltiplicate RND 
per un opportuno fattore di Kilt. 

10 FOR J - 1 TO 4 
20 PRINT [NT | RND-IOO> h 
30 MEXT ì 
RUN 

24 XI 31 SI 

Flg. B.4 
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Istruzione di costruzione di LOOP: 
NEXT 


POR. 


Abbiamo fin qui potuto ammirare la versatilità di un 
calcolato re, rappresentata non solo dalla capacità 
di eseguire in breve tempo una particolare sequen- 
za di calcoli, quanto nella possibilità di prendere 
delle decisioni logiche. 

Un'altra operazione che è spesso richesta nei pro- 
grammi è la ripetizione (looping). Si tratta cioè di 
ripetere una parte di istruzioni un certo numero di 
volte, oppure finché non sia stata soddisfatta una 
certa condizione. Il 'loop" è quella parte di pro- 
gramma che viene ripetuta in modo da evitare che 
le istruzioni comprese nella porzione di program- 
ma che viene ripetuto siano scritte più di una volta. 
Tutto questo in BASIC si ottiene utilizzando il 
FOR... NEXT. La sintassi corretta di questa istru- 
zione può essere: 

FOR a=n1 TO n2 STEP n3 



Quando sì scrìvono dei pro-grammi strutturati con 
un certo numero di righe, si possono avere delle 
sequenze d'istruzioni (det-te procedure o subrou- 
tines) che vengono usate ripetutamente. Come 
esempio si potrebbe pensare ad un programma in 
cui si devono ripetere diverse volte te tre istruzioni 
che costituiscono il loop FOR... NEXT, descritto in 
precedenza Tutto questo porterebbe ad un inutile 
spreco di tempo, e ancora più grave sarebbe lo 
spreco di spazio di memoria. Ciò può essere illu- 
strato nello schema che segue. 



In questa prima parte si specifica quante volte il 
loop sarà eseguito. In questa istruzione è compre- 
sa una variabile ordinarla (a) alla quale una volta 
assegnato un valore iniziale (ni) e uno finale (n2), 
serve a determinare il numro di esecuzioni deside- 
rate in funzione del valore dì incremento (n3). 

Per determinare un "loop" viene utilizzata l'istru- 
zione NEXT seguita dalia variabile che appare nel 
corrispondente enunciato FOR... TO. 


Per risolvere questi problemi si potrebbe scrivere 
separatamente queste righe di programma e ri- 
chiamarle ogni volta che necessita: questo gruppo 
di istruzioni si chiama “subroutine". 

Tutto questo però porta ad un inconveniente: sal- 
tare dal programma alla su brogline è semplice da- 
to che essa comincia ad un numero di riga deter- 
minato, mentre il punto di ritorno al programma 
principale varia di volta in volta. 
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Per risolvere tutto questo occorre utilizzare una 
nuova istruzione. 


Istruzione GOSUB 

Questa istruzione presenta un comportamento 
analogo a! GOTO, con raggiunta però del numero 
di riga alla quale il calcolatore deve ritornare. Il 
GOSUB, cioè, fa in modo che l'elaboratore "ricor- 
di, in qualche modo, l'indirizzo dell'istruzione 
successiva alla medesima GOSUB. 

A questa istruzione è abbinata un’altra, il RETURN, 
la quale induce a ritornare esattamente all'Istruzio- 
ne seguente a quella che ha generato ['esecuzione 
della subroutine; quel punto che GOSUB aveva 
memorizzato in partenza. . 

Bisogna però anche dire che le subroutine posso- 
no presentarsi annidate: possono cioè ciascuna 
chiamarsi a vicenda. Non è necessario per fare 
questo utilizzare altre istruzioni, basta semplice- 



mente tare un salto ad un'altra subroutine utiliz- 
zando l'istruzione GOSUB. 

Bisogna però ricordare che ogni subroutine deve 
terminare con l'istruzione RETURN, che segnala 
appunto ai calcolatore la sua fine. 

Lo schema riporta la rappresentazione grafica del- 
le GOSUB. 

Istruzione ON„. GOSUB e-ON„, GOTO 

Queste istruzioni permettono delle scelte multiple; 
in base al valore della variabile scrìtta dopo ON, il 
calcolatore sceglie a quale linea andare (la defini- 
zione di queste linee saranno poste proprio dopo 
l'istruzione GOTO e GOSUB). 

Le istruzioni hanno la seguente struttura: 

ON X GOTO L1.L2, L3, L4_ 

ON X GOSUB LI. L2. L3, L4,.„ 

Quando il calcolatore incontra tale istruzione, veri 
fica il valore di X e decide dove andare: 

• se X=1 allora salta a LI, intendendo con LI il 
primo numero di linea posto dopo il GOTO (oppu- 
re dopo il GOSUB) 

• se X=3 allora salta L3, terzo numero di linea 

• prosegue cosi per tutti i numeri di lìnea posti do- 
po ri GOTO oppure dopo il GOSUB. 

Nel BASIC standard, se il valore di X è minore o 
uguale a zero (oppure maggiore del numero dì lì- 
nee presenti) il calcolatore ignora l'istruzione e 
prosegue dalla linea seguente. Nel BASIC del 
Commodore invece se il valore di X è minore a zero 
si comporta esattamente come per il valore uno. 

Lo schema riporta la loro rappresentazione grafica. 
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Per concludere questa puntata riportiamo come 
esercizio per l'applicazione delle istruzioni fin qui 
esaminate, il programma che calcola le "radici di 
un’equazione dì secondo grado" 1 ; come per* gir altri 
programmi è stato riportato non solo il listato, ma 
anche la sua rappresentazione grafica. 
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PROGRAMMA ■ EGUflZ PRSTR 3 PR 


— * 

VRR. 1 LINEA DEL PROGRAMMA 

— ~ 



1 

23 

3© 

41 

51 

52 

61 


\ 

£3 

70 





B 

j 

29 

32 

37 

41 

51 

61 


1 

63 

70 





e 

t 

29 

34 

37 

41 



i 

1 

41 

42 

43 

50 

52 

69 


\ 

70 






X! 

1 

37 

40 

51 

54 

55 

61 


| 

63 

69 

72 




X2 

* 

52 

54 

55 

70 

72 



I 0 pp: \< * » fc 4- * *■ * * $$$$#$$#$ 

II REM $ CALCOLO EQUAZIONE * 

12 REM * DI SECONDO GRADO * 

13 REM * DI * 

14 REM * GUARDI ONE MARIANGELA * 

1 5 REM ************************ 

1 £ p£pi *UfjT I £ N I NGR E S SO :R,B,C* 

17 REM *DATI IN USCITA * 

18 REM *X1=UNICA RADICE REALE * 

19 REM ♦.COINCIDENTE * 

2* REM *X1,X2=C0PPIA DI RADICI* 

21 REM AREALI DISTINTE * 

22 REM *21 «PARTE REALE, X2=PARTE 

23 REM * IMMAGINARI A NEL CASO * 

24 REM *DI RADICI COMPLESSE * 

25 REM «INIZIO ELABORAZIONE * 
28 REM ************************ 
27 PR I NT "I OLEARI C2 DOWN I R I SO LOG I 

OHE DELL'EQUAZIONE*' 

2A PR1NT"DI TIFO AXT2+BX+C=8C2 D 
OMNI" 

23 INPUT "FORNIRE I COEFFICIENTI 
; A.-E.-C 

3@ IF ft=0 THEN 32 

31 GOTO 41 

32 IF B=0 THEN 34 

33 GOTO 37 

34 ÌF C=@ THEN PRIMI" [DONNI SOLUS 
I OHE I NBETERM I NATA " : OOT 0 36 

3 5 PR I NT " C D 0 WN I S OL U Z I OHE I MP0S3 1 
BILE" 

3 E FRI NT : GOTO 39 
37 X 1 =-C/E 

33 PRI NT "[DOWN 3 EQUAZIONE DI PRIM 
0 GRADO; RADICI COINCIDENTI X 
=";X1 

39 GOTO 45 

4@ pR I NT " [ DOWN ] E CURE I ONE D I SECO 


HDD GRADO" 

41 B«Bf2-4#R*C 

42 IF D<0 THEN GOSUB 50 • GOTO 45 

43 IF D«0 THEN GOSUB SI GOTO 45 

44 GOSUB 69 -GOTO 45 

45 END 

46 REM ********************* 

47 REM * SUBACUTI NE RADICI * 

48 REM * COMPLESSE * 

49 REM ********************* 

58 D=-B 

51 X1=-B/(2#A> 

52 X2=SQR < D > / < 2* A > 

53 PR I NT" E DOWN 3RAD IC I COMPLESSE 
CONIUGATE" 

54 RRINTX1 , ”+I " ;X2 

55 PR I NTX 1 ; 1 " ; X2 ; " t DOWN I " 

56 RETURN 

57 REM ********************* 

58 REM * SUBROUTINE RADICI * 

59 REM * REALI COINCIDENTI * 

60 REM ********************* 

SÌ X1=-BA2*A> 

62 PRINT "EDOWNI RADI CI REALI CO IN 
CI DENTI" 

63 PRINT XI " ■ " ; X 1 ; " t D OWN ] " 

64 RETURN 

85 REM ********************* 

66 REM * SUBROUTINE RADICI * 

67 REM * REALI DISTINTE * 

68 REM ********************* 

69 X 1 =-E A 2*A > +SQR < D > / < 2#A > 

70 X2=-B/ < 2*A > -SOR '1 D > / C 2*A > 

71 PRINT" CDOWHIRADICI REALI BIST 
IUTE" 

72 PRI NTX 1 ; " ; " X2 ■ " [ DOWN 1 “ 

73 RETURN 
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LA STATISTICA 

cfì Mariangela Guardiane . 

prima parte 


Con questa serie di articoli, che ini- 
zia su questo numero della nostra ri- 
vista, si vuole esplorare una delie di- 
scipline oggi più importanti, ma po- 
co conosciuta; la Statistica. Questa 
parola molto spesso suscita sensa- 
zioni di diffidenza perchè associata 
a qualcosa di complicato e motto dii- 
he ile, riservata cioè a pochi esperti 
del campo. In realtà la statistica rap- 
presenta un sistema, cioè un insieme 
di strumenti, che serve a misurare la 
realtà. Ad esempio; quando voglia- 
mo misurare la distanza fra la Terra 
e le stelle, utilizziamo come unità di 
misura "l'anno luce'': se invece vo- 
gliamo misurare un pezzo di stoffa 
utilizziamo il metro. 

Se si devono però misurare le merci 
che un paese ha esportato o impor- 
tato, ecco che servi ranno delle unità 
di misura diverse da quelle che uti- 
lizziamo normalmente più comples- 
se, meno note e meno facili da ap- 
plicare: le "misure statistiche". In 
generale, ogni fenomeno consiste in 
un insieme di cause e di effetti che 
nella scienza deterministica è rap- 
presentato dailevolversi di grande* 
ze Che lo descrivono mediante un 
modello che rappresenta un insieme 
dì variabili adatte a rappresentare le 
cause (input) e gli effetti (output) e 
le relazioni che le legano fra loro. 

Ad esempio per studiare il moto dei 
pianeti si utilizza il modello di Keple- 
ro, quindi si schematizza if fenome- 
no fisico attraverso una rappresen- 
tazione visiva per poterlo meglio 
studiare. In natura però non esistono 
sistemi per i quali sia possibile de- 
terminare in maniera univoca gli ef- 
fetti tramite le relazioni che li legano 
alle variabili cf ingresso sia perchè i 
sistemi reali sono complessi ed il 
descriverti da un punto di vista de- 
terministico richiederebbe l'introdu- 
zione dì un numero grandissimo di 
variabili e di relazioni. 

Per questo motivo si ricor re a model- 
li semplificatLcostituitf da un nume- 
ro minore di variabili e di relazioni 


accontentandosi dei fatto che tali 
modelli approssimino l'andamento 
reale più che riprodurlo esattamen- 
te. Quindi il compito delia statistica 
è quello di incasellare la realtà in 
schemi ben definiti, che però non al- 
terino a! sua veridicità. 

Abbiamo parlato di "variabili": che 
cosa sono e che cosa rappresenta- 
no? 

Una variabile, ad esempio la X. è up 
simbolo che può assumere qualun- 
que valore all'Interno di un prede- 
terminato insieme di valori detto 
"dominio" della variabile. Se questa 
variabile può assumere un solo valo- 
re viene detta "costante". Una varia- 
bile che, in termini teorici, può as- 
sumere un qualunque valore fra due 
valori dati, viene chiamata "variabile 
continua", in caso contrario viene 
detta "variabile discreta" 

I dati che possono essere descritti 
tramite variabili discrete vengono 
detti "dati discreti”, mentre gli altri 
sono "dati continui". Il numero dei 
bambini di 2000 famiglie è un esem- 
pio di dati discreti, mentre l'altezza 
di 50 studenti è un esempio di dati 
continui. 

Da tutto ciò si può ricavare che le 
misurazioni danno origine a dati 
continui, mentre le enumerazioni a 
quelli discreti 

In statistica la relazione fra variabili 
viene rappresentata mediante grafici 
(delti anche "diagrammi"). Vi sono 
vari tipi di rappresentazioni del ge- 
nere, che vedremo in seguito in det- 
taglio e che sono: 
e if diagramma a rettangoli 

• i diagrammi circolari 

• gli istogrammi 

• le regressioni 

A questo punto incominciamo ad 
esaminare i più importanti concetti 
largamente utilizzati in statistica 

Concetto dì media 

Una media, in genere, viene calcola- 
ta perchè permette di riassumere in 


un’unica cifra un insieme, spesso 
numeroso, di dati (come per esem- 
pio if salario medio di impiegati in un 
industria). Questa grandezza in oltre 
permette i confronti fra le misure di 
due eventi diversi (per esempio il 
consumo medio di carne e quello di 
pesce in Italia), o dello stesso feno- 
meno in tempi diversi (ad esempio la 
crescita media in altézza degli italia- 
ni prima e dopo la seconda guerra 
mondiale), o in luoghi diversi (come 
il diverso reddito medio degli italiani 
e degli americani). 

Data quindi una distribuzione di fre- 
quenza, cioè un ordinamento tabu- 
lare dei dati secondo le classi, i valo- 
ri medi si dicono anche misure di 
posizione poiché essi individuano 
sulla scala delle ascisse, elementi 
importanti per la stessa distribuzio- 
ne. I valori medi più usati in statìstica 
sono i seguenti. 

• la media aritmetica 

• fa media geometrica 

• la media armonica 

• la media quadratica 


Media aritmetica 

La media aritmetica di un insieme di 
N numeri XI, X2. X3, , XN T indicata 
col simbolo X. è data da: 

X= (X1+X2+ .,,+XN) m 
Se ad esempio vogliamo ottenere la 
media aritmetica dei cinque numeri 
flj 2. 7, 6, 13, dovremmo calcolare. 
X= (8+2+ 7+6+1 34-) /5= 36/5 =7. 2 
gióè: 

X=7.2 

Vi è anche la "media aritmetica pon- 
derata"; questa si ha quando ad N 
numeri XI, X2. _..XN vengono asso- 
ciati dei pesi w 1 , w2 . . . , wN c lOé sono 
le frequenze con cui si verificano i 
vari numeri. Essa è data dalla formu- 
la. 

X- (W1X1+W2X2+ -rwNXN) / 
(w1+w2+ ...wN) 

Se ad un esame orale si attribuisce 
un peso tre volte superiore a quello 
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attribuito per lo scritto e uno studen- 
te ottiene come voto per l'orale 85 
mentre per gii scritti 70 e 90 la media 
dei voti è: 

X— ( (1)*70+(1)*90+(3)*85) / 
(1+1+3)=83 

Media geometrica 

La media geometrica di un insieme 
di N numeri XI , X2 XN è la radi- 

ce M-esima del prodotto dei numeri: 

G — (XI *X2* *N) ! (1/N) 

La media geometrica dei quattro 
numeri 2, 3 r 7, 9 è: 

G= (2*3*7*9) t (1/4)— 4,409 

Media armonica 

La media armonica di N numeri XI, 
X2 ? „ .XN è il reciproco deila media 
aritmetica dei reciproci dei numeri 
stéssi cioè: 

H=/ (1/N" (1/X 1+17X2+ ,,,+1/XN) ) 
La media armonica dei tre numeri 4, 
8, 12 e 

H— 1/ (1/3* (1/4+1/8+1/12) )— 72/1 1 
Esiste una relazione fra le medie fin 
qui viste: la media geometrica di un 
insieme di numeri positivi XI, X2, 

XN è minore o uguale alla loro 

media aritmetica, ma maggiore o 
uguale alla loro media armonica. 
Questa relazione è rappresentata 
simbolicamente da: 

H<=G<=X 

Questi segni di uguaglianza valgono 
naturalmente se tutti gli N numeri 
utilizzali per calcolare le medie sono 
identici. 


Media quadratica 

La media quadratica di un insieme di 
numeri XI , X2, XN è definita nel 
seguente modo: 

( X 1 2 ) T (,5)— ( (X1*2+X2t2+ ...+XNT2) 
/N)t (.5) 

La media quadratica dei numeri 1, 3, 
5 7 è: 

(XT2)'t (.5) = ( (1f2+3t2+5T2+7t2) 
/A) T (.5) —4,58 

L’ultima grandezza statistica che 
esaminiamo in questa prima parte 
prende N nome di “momento”: esso 
serve a mettere in evidenza alcune 
importanti caratteristiche di un in- 
sieme di dati. 

Se XI, X2, .... XN sono gli N valori 
assunti dalla variabile X, la quantità 
XTr= (XI Tr+X2fR+,.,+XNtr) /M 
Viene definita, "momento di ordine 
r' 1 . 11 momento dì primo ordine. r=1 h 
è la media aritmetica X. 

Se ad esempio vogliamo trovare i 


momenti dì primo, secondo, terzo e 
quarto ordine dei cinque numeri 
2 3 7 8 10 

X= (2+3+7+8+10) /5=6 è il momen- 
to primo o media aritmetica 
Xt2~(2T2+3t2-f 7T2+8T2+10T2) 

/5= 45,2 è il momento di secondo or- 
dine 

Xt3=f2T3+3t3+7T3+8T3+1 0T3) 
/5=378 è il momento di terzo ordine 
X t4= (2 14 +3 ! 4+7 T4+8 T 4+1 0 1 4) 


/5=3318 8 è il momento di quarto 
Ordine 

Per concludere questa prima parte 
riguardante la statistica si riporta a 
seguito il listato del programma 
"Media” che permette di calcolare il 
valore delle medie e dei momenti re- 
lativi ad una variabile stocastica 
(cioè casuale) x che assume i valori 

XI, X2 XN con frequenza fi, f2, 

fN. 
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10 e-FM * *****;#*$*******;********** 

11 REM * ELEMÉNTI DI 3 T ATISTIi>V* 
1? REM * MEDIE E MOMENTI * 

13 REM * DI * 

14 REM * GUARDI ONE MRRI ANGELA * 
ii REM ************ * * ************ 

16 REM * MENU'' PRINCIPALE * 

17 REM 4 ED INPUT DEI URTI * 
ir rem ************************** 
IP OOSUB 33 PR I NT " I OLE AR 1 C 2 DOWN] 

1 2 R I OHT I C AL C OL 0 D È '-LE MED I E E 
DEI MOMENTI” 

20 PRIMI"! E RI OHI] PI UN fi VARI AB IL 
E STATISTICHE? DONNI" 

21 PEI NT "DEH MIRE IL NUMERO DI VR 
LORI PER LR" 

22 INPUT -VARIABILE STATISTICA : " 
;H 

"■3 PRIMI 


2-i PRIMI "FORM IRE I VALORI E LE ,; :E 
LATI VE ERE OLIENTE" 

2? POR 1=1 TO 50 ■ MENTI 

26 DIM MCN' 1 ■ E 0 N > 

27 FOR I~1 TO H 

28 INPUT " : Xv I > PRTHT" CUPU2S 
R I OHI I " . INPUT "F~" ; Ff T > 

29 UEXT T RRINT" C3 DONNI" 

30 REM ********** *************** 

31 REM * CHIAMATA SUBACUTI HE * 

32 REM * DI CALCOLO * 

33 REM ************************* 

34 fiOSUB 58 

05 RFM ** * *** ** * * * * * * ** * * * * + * * ** 

36 REM * GESTIONE DEI RISULTATI* 

37 REM ************************* 

38 PRI NT" [ Ct FAR 3 C 2 DOUH 3 MED I A OR I 
TMET I CA= " ; A 

33 PP I UT " C BONN 3 MED I A OEOMETR I CR= 
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" : G '• PRIMI 

40 IF TE=1 THEM PRINT"MFDIfl flRMON 
I Cft HON DEFINÌ TfiC DOWN] h : CO TO 4 

41 FRI NT "MED IH ARMONICA* ";H:pRIN 
T 

42 FRI NT "MOMENTI : " 


43 

FRI NT" 

•MI- " i MI 

44 

FRI NT" 

. M2= " .: M2 

45 

PRIHT" 

. M3- " . M3 

46 

PRIMI" 

.M4- ";M4 


47 PRIMI "CDOUN3COEF. DRAPPI ATT IME 
HTO- " RP 

40 PRÌ NT » [ DOWN 3 COEF . D ' RS I MMETR I fi 

m * j3|C 

40 PRIMI" C DOWN 3 MED I fi QUADRATI Cfi= 

" , MT 
130 END 

5 1 RE hH * * * ** * * #**+*##**** ****** 

52 REM * SUSROiJTIME CÀLCOLO * 

53 REM * DELLE MEDIE E DEI * 

54 rem * MOMENTI * 

55 REM ************************ 

56 REM * ÌHIZIRLIZZflZIONI * 

58 TE-© V ! -8 •• V2-8 ' V3-8 V4~6 : V5=l * 
V 6“"0 : V7”@ : H=8 

5 ? PPM 

60 REM * CRLCOLO SOMMATORIE * 

C i p£ì*\ ***; « m $$^4$ 4; :*■ # $$$$$* *** 

g2 FDP 1=1 TO M 
gp vT^Fr I >#>!>: I > 

64 vi-Vl+VT 
£5 V2-Và*V7#X< I > 
g g y 3 - y 3+ y t* v £ r ;> fo 
g 7 y d ■= y 4 + y T* :■; < t ; . +3 


tS M^M+F < I > 

f>9 V7=V7+F < I > *X > I > T2 

70 IF X ■: I > =© THEN TE- t ‘ GOTO 74 

7J IF TE-1 THEN 74 

72 V5"V?*K< I > IF ■: I ’ 

7-; V6«V6+F< 1 y/v< j -, 

74 MENTI 

7 5 REM ************* ** ***** *** * 

?€ REM * CALCOLO FUNZIONI * 

77 REM ************************ 

73 fi=Vl/M 

70 MT=<V7/MM k . 5 

00 Mtafi 

01 M2- '' V£ - 2* fi *V 1 1 R#fl*MVM 

«42 M3 = < V3-3*fl*V2+3*fi*fi* V { ~M*fi 13 "■ 7 
M 

y 3 M4«< V 4-4*ft*V3+6*fi*fì*VS , ~4*Vl#fi'* 
3+M*fit4>/M 
S4 AP-M4/M2/M2 

85 fì3“M3/CM2TÌ , 5) 

86 IF TE=1 THEN 0^0- RETURN 

87 G*V3t<t7M) 

88 H=M. ’V6 ' RETURN 

39 PRIHT" C OLEARI " : PRIMI" C5 DOWN 3 E 

C DTftUTT^ «/ * /■ J ■ * J ** ■ >v *7 V ■ - J v * '* /* 7 »7 ■ /* 7 •.* ■ .7 

D “ 1 f 2n ! J 1 Jiaftii: *;»f*r'st */* t L i -** 

80 PRIHT" C6 RIGHT3KCRVS3 ELEMENTI 
DI STATI STI Cfl: I RVOFF ] *i " 

91 PRIHT "C6 RIGHT3XCRVS3 MEDI 
E E MOMENTI E RVOFF 1 L 

82 FRI NT" E6 RIQHT3KERVS3 

DI I RVOFF 3 II" 

93 PR I NT "16 RIGHI IME RVS 3 OU fi R D I 0 

HE MRR I ANGELA I RVOFF 3 Z " 

94 PR I NT" [ 6 P I GHT 3 ZZZZZZXC^ZZZZZ 

* ;■ fr,* ■ 4 ■ J ■ I * 1 1 
é'Mi'mfmf m* #,» i. t a - ti i jtfm 

95 FOR J”1 TO 5000 -tNEXTJ' RETURN ■ 




w 
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LA N PRECISIONE 

di Eugenio Coppali 



La matematica è af tempo stesso fi- 
glia e madre della moderna informati' 
ca. Una asserzione di questo genere è 
contraddittoria solamente in apparenza, 
poiché i legami che legano vicende voi 
mente le due discipline sono difficitmen- 
le separabili. 

Questo breve commento iniziale è 
senza dubbio utile per introdurre l'argo- 
mento di questo articolo: if calcolo nu- 
merico. La prima parte delia trattazio- 
ne sarà di carattere essenzialmente teo- 
rico, mentre nella seconda il problema 
verrà analizzato soprattutto in riferimen- 
to alla precisione numerica che è con 
sentita sulla maggiore parte degli homo- 
computer Questo fatto richiederà una 
attenta riflessione sull 1 aigoritmc che è 
alla base del programma allegato ali ar 
t idolo e che consente di trattare valori 
numerici superiori a quelli tradizional- 
mente accettati sui calcolatori apparte- 
nenti a questa fascia di mercato, Le 
operazioni consentite tra questi valori 
sono le 4 tradizionali: addizione, sottra- 
zione, moltiplicazione e divisione. 

Nel campo della teoria dei numeri, il 
calcolatore consente di esplorare valo- 
ri assai più grandi rispetto a quelli che 
erano raggiungibili nei secoli passati. 
Quei procedimenti, essendo essenzial- 
mente manuali, pagavano inevitabil- 
mente il prezzo di una eccessiva lentez- 
za e di una scarsa precisione. 

Il calcolatore ha senza dubbio con- 
sentito, in questa specìfica branca del- 
la matematica, una benefica iniezione 
di ' H giovinezza' 1 , dischiudendo nuovi 
orizzonti alla ricerca nel campo della 
teoria dei numeri Non è azzardato, in 


questo caso, paragonare questa evolu- 
zione con quella avvenuta in taluni cam- 
pi della fisica. Scrutare il cielo, come 
d’ali ronde sarà possibile nei prossimi 
anni, attraverso un telescopio orbitan- 
te intorno alla Terra, rappresenterà un 
innegabile progresso rispetto alle nostre 
possibilità attuali dì conoscenza dell'u- 
niverso. 

Le prime scoperte, che destarono no- 
tevole sensazione, furono quelle di Lan- 
der e Park in che determinarono, me* 
diamo il computer, una soluzione della 
equazione X elevato alla quinta più Y 
elevato alla quinta più Z elevato alla 
quinta più U elevato alla quinta uguale 
a V elevato alla quinta potenza. 

Il risultato è dato ri spetti va mente da 
questi valori; 

X = 27 t Y = 84 t Z^IHX 
U= 133. 144 

Si dimostrava quindi infondata fa con 
geltura di Eulero che riteneva priva di 
soluzioni questo genere di equazione. 
Il calcolo di pi greco, argomento che sa* 
rà oggetto di analisi su uno dei prossi- 
mi articoli della nostra rivista, è ormai 
giunto alla milionesima cifra decimate. 
Ricordiamo, al lettore che non lo ram- 
mentasse, che pi greco è dato dal rap- 
porto tra la circonferenza e il suo dia- 
metro (3,14.,. etc ). 

Ricerche di questo genere sono fina- 
lizzate alla scoperta di una periodicità 
nella disposizione dei decimali che com- 
pongono questo numero cosi misterio- 
so e affascinante. 

Nei nostri piccoli calcolatori domesti- 


ci siamo abituati a chiamarle ugualmen- 
te con il nome di bit. fi tempo impiegato 
da un grande calcolatore por una ope 
razione logica elementari (aperto o 
chiuso) è attualmente pari a 10 elevato 
alla meno 9 secondi: circa un miliarde- 
simo di secondo. Esistono naturalmen- 
te dei limiti dettati dalla fisica per quan- 
to concerne le massime dimensioni rag- 
giungibili da un computer e la sua mag- 
giore velocità dì calcolo. Un calcolato- 
re ottimale potrebbe essere costituito al 
più da un numero di elementi fonda 
mentali pan a 1 0 elevato alla 126, aventi 
ognuno dimensioni non più piccole dì 
quelle di un protone. 

Inoltre questo calcolatore non potrà 
essere più grande dell'universo da noi 
conosciuto che. stando agli studi attuali, 
ha un diametro di 100 miliardi di anni 
luce, In base agli accertamenti teorici ef- 
fettuato ogni operazione logica elemen- 
tare (aperto o chiuso) non potrà mai es 
sere effettuata in un tempo inferiore a 
3 moltiplicato per 10 elevato alla mene 
24 secondi. 

Questo è in effetti il tempo impiega- 
to, in condizioni normali, dalla luce per 
attraversare il diametro di un protone. 
Anche se senza dubbio le capacità tec- 
niche di un tale calcolatore teorico ci at 
feriscono, sarà importante rendersi con- 
to di un fatto assai rilevante continue- 
ranno ad esislere problemi teoricamen- 
te risolubili, cioè esprimibili sotto forma 
di un algoritmo ben definito, ma che no- 
nostante ciò non saranno risolvibili a 
causa dei limiti fisici dell'universo in cui 
attualmente viviamo. Naturalmente uno 
dei motivi principali che ci conducono 
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ad una affermazione del genere, è il tal* 
io che la maggiore velocità consentita 
in natura è quella della luce, pari a pò 
co meno di 300,000 km al secondo. 
Quindi alcuni problemi di calcolo mate- 
matico, risolvibili in linea di principio, ec- 
cedono per quanto concerne la loro so- 
luzione la capacità del più polente cal- 
colatore ipotizzabile in natura. 

Diamo ora alcuni esempi di quanto è 
stato affermato. Il gioco degli scacchi ri- 
chiederebbe un tempo di esame di lat- 
te te possibili situazioni di gioco, utiliz- 
zando il calcolatore ideale descrìtto in 
precedenza, pari a 20 miliardi di anni. 
Ritengo che assai difficilmente qualcu- 
no di noi sarebbe ben disposto psicolo- 
gicamente ad aspettare per un tale i as- 
so di tempo! 

La strategia degli scacchi si può stu- 
diare mediante una struttura ad albero 
di ricerca che nasalmente darà luogo 
ad una serie pressoché infinita di rami- 
ficazioni. 

Anche altri ^passatempi 1 ’ possonc 
rientrare in questa non ristretta cerchia 
di problemi: ad esempio il gioco del Ntm 
oppure le torri di Hanoi, possono ricor- 
rere a un numero illimitato di fiammife- 
ri. 

Questa digressione, piuttosto lunga, 
compiuta In merito al problema dei limiti 
teorici di un calcolatore, ha come obiet- 
tivo quello di far comprendere i proble- 
mi che può suscitare r utilizzo del cal 
colo al di fuori delle piccole quantità nu- 
meriche che usiamo giornalmente. 

Difficilmente riusciamo a renderci 
conto del problema fisico, nonché ma- 
tematico-filosofico. che implica condurre 
ai limiti estremi una abitudine quotidia- 
na come quella del calcolo 

Sempre continuando nel nostro viag- 
gio, che esplora t rapporti tra computer 
e calcolo numerico, ricordiamo il concet- 
to di fattori ai e: il prodotto dei primi N nu- 
meri naturali si chiama fattoriale di N o 
N fattoriale. 

È giunta di recente la notizia che un 
gruppo di matematici giapponesi è riu 
scito a calcolare 15 milioni fattoriale! Il 
risultato occupa un blocco di carta di for- 
mato 132 colonne con una altezza pari 
a 25 centimetri: un risultato di questa ri- 
levanza sarebbe stato improponibile for- 
se anche solo alcuni mesi orso no. 

Alcuni ricercatori di una università 
statunitense hanno scoperto, mediante 
circa 30 ore di lavoro in linguaggio mac- 
china, che un numero di 77 cifre erro- 
neamente ritenuto primo nel passalo é 
in verità scomponibile in prodotto di fat- 
tori. 

Lavori teorici di tale portata possono 
consentire applicazioni pratiche di no^ 


tavole interesse. Si valuti ad esempio il 
problema detla riservatezza delle infor- 
mazioni, un quesito che necessita di 
un’impellente soluzione, data la sempre 
maggiore diffusione delle reli informa- 
tiche nei maggiori paesi del mor^o A 
questo proposito alcuni ricercatori han- 
no messo a punto un sistema crittogra- 
fico a chiave pubblica basato sulla dif- 
ficoltà di fattorizzazione di un numero 
molto grande, che sia per esempio, il 
prodotto di 2 numeri primi di 120 cifre 
Naturalmente sarà statisticamente as- 
sai difficile, per una persona comune, 
trovare due fattori dì questo genere, an- 
che se l'avanzamento rapidissimo dei 
test dr pnmaiità, cioè di quelle prove che 
consentono di appurare se un numero 
è primo, può indurre ad avere seri dub- 
bi sulla futura efficacia dei ststemt crit- 
tografici. 

Gli elementi citati dovrebbero indur- 
ci a modificare sostanzialmente la no- 
stra idea deila ricerca matematica. 

Il metodo moderno della ricerca 
scientìfica ha due aspetti fondamenta 
li: induttivo e deduttivo. 

L'aspetto induttivo riguarda la ricer- 
ca di fatti o principi tramite osservazio- 
ni o esperimenti. L’aspetto deduttivo 
coinvolge ragionamenti logici che por- 
tano da proposizioni e principi assunti 
come promosse {assiomi o teoremi) a 
nuove proposizioni e principi. 

A partire dalla scuota Galileiana j due 
aspetti hanno iniziato a fondersi in quasi 
tutte le scienze. E quindi anche nella 
matematica, con l'avvento dei calcola- 
tori, non è più solamente una scienza 
prettamente deduttiva. In effetti il com- 
puter ha reso possibile, anche por que- 
sta disciplina, l'uso del termine 'speri- 
mentare'". Tutti i problemi che abbiamo 
analizzato sino a questo momento ri- 
chiedono, per quanto concerne la loro 
soluzione, velocità di calcolo diffìcilmen- 
te immaginabili dal possessore di un 
semplice home-computer. 

Nei grandi calcolatori l'unità logica 
fondamentale viene chiamata porta, es- 
sa può ricevere due diversi segnali elet- 
trici: aperto o chiuso (questa é fa nota- 
zione maggiormente usata per rappre- 
sentare la logica a 2 stali tipica di ogni 
calcolatore). Queste porte sono costrui- 
te da componenti elettronici fondamen- 
tali e sono presenti all'interno di un cal 
colatore in un numero ben superiore a 
parecchie migliaia di elementi. 

11 programma 

Nella seconda parte dell’articolo vie- 
ne esaminato il problema de! calcolo su 


un home computer. Il programma com- 
mentato è scritto interamente in BASIC 
e quindi aldilà della memoria RAM ri- 
chiesta per f esecuzione del Software, 
non dovrebbero sussistere problemi di 
compatibilità tra i vari modelli GOMMO 
DORÈ, pur avendo io usato un 64 . Il pro- 
gramma consente di utilizzare le 4 ope- 
razioni razionali {addizione, sottrazione, 
moltiplicazione, divisione) con numeri 
aventi al più 100 cifre. 

Questo software risulterà particolar- 
mente utile per coloro che richiedono 
maggiore precisione ne fi’ ambito dei cal- 
coli. 

Sul COMMODORE 64 le costanti reali 
vengono visualizzate sino alla nona ci- 
fra. I numeri più piccoli di 0.01 e più 
grandi dt 999999999 sono stampati tn 
notazione scientifica Una costante rea- 
le in notazione scientifica è composta 
da tre parti; 

• mantissa 

• lettera 

• esponente. 

La mantissa è un numero reale, e la 
lettera E viene usata per indicare che 
il numero viene rappresentato in forma- 
to esponenziale. In termini molto sem- 
pjici E vuol dire; per 10. C é un limite 
per quanto concerne fa grandezza dei 
numeri che può trattare il COMMODO- 
RE 64. infatti questi sono compresi tra 
2,93873586 E 39 e 1 ,70141 183 E + 33. 

Nelle righe da 1420 sino a 1480 vie- 
ne creata la mascherina grafica che fa- 
rà da contorno alla visualizzazione dei 
calcoli. Nelle rrghe da 1490 sino a 7525* 
il programma vaglia quale tra le 4 ope- 
razioni disponibili è stata scelta per il 
calcolo. Nelle righe da 1530 sino a 2080 
viene effettuata l addizione: esaminia- 
mone l’algoritmo 

Innanzitutto il programma vaglia se 
uno dei 2 addendi forniti contiene la vir- 
gola, procedendo in caso affermativo al 
loro incolonnamento. Questo è possibile 
post ponendo degli zeri ad uno dei due 
addendi. Si procede quindi all addizio- 
ne che dovrà tenere conto, naturalmen- 
te, di eventuali carry (riporti). Essa vie- 
ne effettuata nelle righe che vanno da 
1880 sino a 2080 . 1 due addendi vengo- 
no divisi e addizionali a gruppi dt 8 ci- 
fre, in base al loro tncolonnamenlo. 
Ognuna di queste pìccole addizioni po- 
trà provocare un riporlo sulLaddizione 
del gruppo successivo se si eccederà 
sino alla nona cifra per quanto concer- 
na il risultalo. 

La routine della sottrazione è situata 
nelle righe che vanno da 23 70 sino a 
2650. Anche nel caso della sottrazione, 
come già in quello della addizione, si de- 
ve procedere a II' incolonnamento degli 
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addendi in caso dì presenza della vip 
gola. 

Tra 2440 è 2G50 viene effettuala la 
routine dt sottrazione, come già nel ca- 
so dèlia addizione gli elementi vengo- 
no sottratti a gruppi di 8. tenendo inol- 


tre conto degli eventuali carry che si 
possono verificare. Nelle righe da 2740 
smo a 2880 è situata la routine di input 
controllalo, essa non consente t' entra- 
ta di elementi estranei al sistema Ricop 
do a questo proposito che volendo di- 


gitare lo zero come prima cifra è neces- 
sario premere il carattere poiché, 
anche in questo caso, viene eseguita la 
normale rapprese ntazrone adottata da 
tutti i mode Iti COMMODORE 

Per porre termine alt ingresso dei dati 
relativi ad un determinato addendo o fat- 
(Ore ricordarsi di premere RETURN 

Nelle righe da 2980 sino a 3460 vie- 
ne analizzata la moltiplicazione Dopo 
ia lase iniziale di input dei 2 fattori si 
procede ad una loro prima valutazione 
r.elle righe comprese tra 2980 e 3170 
La fase moliiplicatsva avviene nelle righe 
comprese ira 3190 e 3340 dove il pri- 
mo fattore viene diviso in gruppi di 8 ele- 
menti ciascuno Effettuala questa prima 
operazione, ogni cifra dei secando fat- 
tore a partire dall ufi ima. viene moltipli- 
cata per ogni gruppo precedente Nel 
caso in cui uno di questi prodotti fornis- 
se un risultato di S cifre, si verifichereb- 
be un riporto sulla moltiplicazione suc- 
cessiva 

Terminate tutte le moltiplicazioni, si 
procede alla !ase di addizione di tuit 1 i 
singoli risultati, dove provveder il pro- 
gramma ad incolonnare esattamente 
lutti gli addendi 

Dovrebbe risultare chiaro che il pro- 
de ito è stato eseguito nella maniera che 
utilizziamo usualmente quando siamo 
provvisti di carta e matita 
La divisione e la parte di programma 
che la riguarda, mentano senza dubbio 
un discorso maggiormente particolareg- 
giato Quindi vi rimandiamo alla prossi- 
ma puntata dell a precisione dove il 
discorso verrà terminato d et ini tiv aman- 
te Risulteranno inoltre particolarmente 
gradite altre routine dei lettori ine remi 
al tema del calcolo 
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t 328 POKE 53280 , 6 ^ POKE 5328 1 .• b : REM 
BATTERE QUESTA RIGA SOLO PER 
1! COMMODORE 64 

1330 PR [NT TABI 23?" / . 

Il 

1340 FRI NT TAB'23>“ l N PRECISIONE ! 

1 350 PR INI THE < 23 > " 

II 

1 370 PR I NT H £ 3 UP 3 /— — — \ H 

ì 380 PRINT" f + ~ * \ 11 

13^0 PRIHT" ' — * — -■ ” 

1400 PRINT: PRIMI 

1410 POR PE= 1 TO 2 

1420 PRINT" — — 

ii 

1 43S PRINT” CUP] t 



14?e PRINT” DOPH"; : NEKTPE 
1480 SET Di : IF D$="" THEN 1480 
1430 IF DÌO"*” AND DÌO"-” AND D$< 
>"f" THEN 1480 


1509 IF THEN PRINT" L HOME] " ; 

TRBC 53 > ; “ C RVS ] " Di " C RVOFF ] " 3PC 
( 1 82 j ■ GOTO 1 580 
1516 IF Di="-" THEN PRINT" [HOME] " ; 

thE < 53 , " r rvs i " iti " t rvoff 1 " ; spc 
(182>; : GOTO 2090 


1526 IF Di^"*" THEN PRINT" C HONEI ", 
TRE < 59 :■ ; " C RVS ] " Di " C RVOFF ] " ; SPC 


<182?; GOTO 2380 

1530 REM **#**#**#***###****#*#***# 

1540 REM * # 

I550 REM * ADDIZIONE * 

ISSO REM * * 

157S REM M*m*w**+****-*w**m*+m 
1 580 GOSUE 2740 ■ PR I NT" L 2 R I GHT ] " ; : A 
i*= I Ni 

1530 VW=2L-Z4 

1 600 GOSUE 2740 ; PRINT " C 2 RIGHI]"; :£ 
$=INi 

1610 142*2L-24 

162S rem mmm * ******* ************ 

1 6:30 REM * EVENTUALE I NCOLONM AMEN-* 
1648 REM W DI ELEMENTI CON LA VIR-* 
1650 REM 4 GULH ' * 


1660 REM ************; f************* 

1670 IF VW>H2 THEN POR VV=1 TO CVW- 
W2? : E$=BÌ+"@" ■ NEXTVV SD=VW ■ GOT 

n 1 720 

1680 IF U2>VW THEN FOR VV=1 TO <H2- 
VW> : fif=Ai+"0" ^ NEXTVV ■ SD=W2 GOT 

0 1 723 
1690 SD=VN 

1700 IF fì-Q- 1 THEN Ai-Ri ■ Ei=CLÌ <CF> J 
SD=0 

1710 IF RQ=1 AND CFOl THEN FOR VX= 

1 TO CCF-1? • FIi : =FIÌ+"0" : NEXTVX 
: EF Ì=F I i BÌ=BÌ+FIÌ : FIT=" " 

1720 fl=LEN<Rf? : E=LEN<BÌ) : IF £>A THE 
N C$=BÌ B$~AÌ ■' Hi -Ci : C=£ • B«A ■ R= 
C 

1730 fil=INT<fì/8> 

1740 A2=KAÌ + 1?*S-R 
1750 B2=<A1+1?#8-B 
1760 FOR C=1 TO R2 
1770 Ri=”8"+Ri 
1780 NEXTC 
1790 FOR C=1 TO E2 
1800 Bf«"0"+B* 

1810 NEXTC 

1820 REM ************r************* 
1830 REM * ADDIZIONE DEI DUE AD- * 
1840 REM * DENSI TENENDO CONTO DI * 
1850 REM * EVENTUALI CflRRV : * 

1370 rem ************************** 

ISSO FOR B=1 TO < A 1 + 1 > 

1 890 F~VAL< M I D$ C Ai, <fll+ 1 -D? *8+ 1 , 8> > 
1900 G=VAL < M I Di < Bi .■ <A1+1-B>*8+1,8>> 
1310 IJ-F+G 

1 920 UÌ=Ml DÌ ( STRi C U > , 2 > : I F < LEN < Ui > 
=9 OR UZO0> AND <D<fil+l? THEN 
2030 

1930 IF’lÈNOJìXS THEN FOR S=LENvUÌ 
> TO ? : Ui="@"+Ui ■ NEXTS 
1940 XÌ=Ui+XÌ 
1350 NEXTD 

! 196 ìli IF 3DO0 THEN XÌ=LEFTt<X*, LENC 
Xt ? -SB>+" . "+RIGMTÌ C X$ , SD ? 

1970 IF MIDÌ<Xi j 1 .* 1 >“"0" THEN Xi=MI 
DÌCXÌ.-2) 'GOTO 1970 
1980 IF AQ=1 THEN RÌ=XÌ : Xi=‘‘ " : GOTO 
334G 

1930 GOTO 8858 

200 0 r em ****** *** **** * *** ********* 

2010 REM * CARRV J * 

2020 REM ********************** **** 
2030 XÌ=R I GHTi < Ui , 8 > +XÌ 
.2040 '/-VAL < M I Di C Ai, < Al -DJ *8+ 1 , 8? ?+ 1 
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2050 1F V= 10000S000 THEH VO" 888060 
6 0 " ■ UZ ”1 -0 0 TO 2 07 0 
2060 uz=0 ■ V£~M 1 M < 3TR$ < V > , 2 > - IF LEM 
(VIK8 THEH FOR 3*LEN<VÌ> TO 7 
’V$- l '0 M +V*;NEXT 

2076 R$~LEFT£CR£ , < Ri “D>*S>+V$"!"RreHT 
2680 GOTO 1 958 

2096 rem mmmmmMmmmmmmm 

2100 REM * # 

2110 REM $ SOTTRAZIONE * 

2120 REM £ 

2136 RE M ^ $ H 1 : i4f # $1 ;£ 1'*;*^ 4i $ $ l£; ifc :■?: ;è' ^ 

2 1 40 GOSUB 2740 - PR I NT C 2 R I OHT ] " ; : R 

2156 VOZL-Z4 

2 1 66 GOSUB 2740 : PR I NT 15 [2 RI GHT 3 !1 , E 

$-im 

2170 WS~ZL-24 

2188 rem 

2190 REM *: EVENTUALE I N C 0 L 0 H N RM EH ~ # 
2260 REM :* DI ELEMENTI CON LR Viso* 
2210 REM * GOLR 4: 

2220 rem wmwmmmmmmmmmm 

223G 1F VM>H2 THEH FOR VV=1 TO <VH- 
W2> ■ BOBO »6« : HEKTVV = 03OVU : 00 T 
0 2260 

2248 IF N2>VW THEH FOR VV=1 TO <N2- 
VM> ■ R^=FSf+”8 M ■ NEKTVV SI 012 : GOT 
0 2260 

2250 Sl!=VN 

225 1 REM R OUT I NE Jj I V I S I ONE 
2254 IF EV= 1 THEH R#“L* 1 B$=H£4- = SD«0 


2260 

R=LEN(H$> : B ; 

hi '£$-$$-[ 

C ; :RH-1 

2278 

IF THEH 

2286 

Rl : =ItfKR s J S> 

2298 

R24TR1 + 1 /i^S- 
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E2-< Fi 0 1 ) 4fS 
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pnp r=-i tq ; 

- -I--1 ri 

cL h'J 

Rl= "0 M +fl$ 

2336 

NEKTC 
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FOR C=1 TO 
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2368 

l ir' i P JTi” 
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2370 
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24 1 0 
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REM * SOTTRRZIGNE TRR 2 £ 

REM * ELEMENTI * 

REM * TENENDO CONTO & 

REM a DI E VENTURE I CRRRV ■ * 

p r m $ $ & & £ * * * & & £ $ £ $ # £ £ & £ 
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2545 

2547 
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FOR D=1 TO OilH) 

CHT-M I :DT < RI , < fi 1 * 1 “E > $8+ 1 . R > : F= 

VRLCCHT) 

c i t-rii di ■; b$ , ■’ r i -i i - il ) $ s. r i .. 3 > : n~ 
VRLOCl'-f > 

IF F>=G THEH U-F -G ■ -=M I \ STF 

$a!),2> -GOTO 2500 

IF <COF RNB B<ni+i> THEH CH$- if 

i ‘ 4 +CH'|: : F=VRL < CH* > : U^F 5 : U.£sxM TJ 

1 C STRI ( U > / 2 ) ' GOTO 2608 
I F G>F TMEN U-F--G - LM-M I D* < 3TRT 

TF LEHCU^KB THEH FOR S==LEN<U* 
> TQ 7:iJ^= M e ,, +U$:N!^:TS 

NEKTB 

IF SDO0 THEH X$“LEFT$ Ov$U LEN( 
';< -sii m ) 4* ,s u “ 4 p I GHT$ ( X$ ? G D ) 

TP m I D i i! xk .1,1 = tJ 0 ,: THE H Xf=M I 
Tl ■:; Ri 8) : OD TO 254 8 
IF EV-I RNB RFM3 THEH 
ETURN 

Tp pv^l TMEN R 1 : RETURN 

IF RH-0 THÉN 8050 

K-^“ 11 - 11 +X$ GOTO 8Ù50 

R; E M S * * :it »: 4; ^ $ * -& F 4: $ ^ 4; 

REM * CRRRV # 

REM 

I DHT1 < UT , 8 > +XT 

I F ri I D-f < RT i c R 1 -Ti > ^8+ 1 .■ 8 > <> H 860 
88808 " THE N V® VRL L M IIiT(RT , ( R 1 - 




D)^8+l , 

,8)>-ì • 

ODI fi 

2636 

' bD"“!d 

2620 

VI'-- u !^3': 

..ì 5 -! '_! ”s 11 

; ] Oi 

. GOTO 2i 
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2650 GOTO 2528 

2668 RE M ^ ^ -tè ^ : (j*ì -f. # ;4: $ ^ -4= : * ^ ^ ^ lì: 4 4 ^ 4 1 --4;^ $ 4 
2678 REM £ VRQUTINE PI INPUT Si 
26S0 REM ^ CONTROLLhTO Si 

2698 
0700 

2718 REM £ ESTRONE I RL SISTEMO ^ 

2730 rem 

7748 INI- 11 IF : ZT^TI • 3C»2 : 24-7 : ZL-9 ■ J 
7^0 ■ E=8 

2750: UET 15^ : I r 7$-7' !fM TMEN 2788 
2768 IF ZTOTI THEH PRINTMIIPÉO W l , 
ZC , 1 > ; ** fU FFT I >s ; 7C“3-ZC • ZT^T I + 
15 

2770 Ligio 2750 
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2308 

Z”-RSC<Z?> : ZL“L- 

:nl in :p 

%)lp Z r ~4t 

'3150 

1 r% ?” “-,4 

ife 

j Cj f 

UT INE IH fìlrBIZIO- 



THFH F-F-hl -Gni! 

j 2835 


9 1 68 

c-rH 


Mp pp 

:ECE BEN' TEMENTE 

?fe 
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3178 

REM 


INTRÌj 

tEOTTfl . 
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IF ZC48 OR Z>5' 

7 ' thEN 

PR T NT “ * - 

3 1 80 

REM 


"ìfc "ìV ^ ìfe j|'- '&■ ’fe -M 
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PF'n 1 ' , : GOTO 23: 
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2020 

IF 2LMÌ0 THEN 
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ì" 1 JQ 
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3228 
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3230 

U7~F7*G7+E9 

'4-0 THEN 

Z4=“4L 


3240 

EH "8 


■ T k!,+; i “ 

: p 

3258 

U7T^MIB5<9TPTOJ7> -2> 

PRIMI 11 rg 

BONN J 11 

; [/> 

3268 

rp i£N<U?f >=3 TliEH 3448 


eturn 

070 fp 7:^46 thEN JR=Ì-Z4*2t 
888 GOTO 2758 
oso POR EU-1 IO ri 
980 I F n I fr? < R:" EK . 1 1 > M I D£ ( B$ , Etó .■ 1 J ! 
THEN 2208 

9 ? 0 T F M X D$ < B$ , EN .* 1 > >M I M < h$ , BA ■ 1 > 

T |4P K | r: '£ J> $ : I: ;t ;.-;0 1: R :£ ;s f : 4 : f; = J; : p 

h ■ h-C : RH' : J GOTO 2208 
928 NEXTÉW ^ X$==* , 8 M : GOTO 3050 
938 REM 

948 REM & ? 

958 REM $ PRODOTTO : fc 

968 REM * " & 

“ J 7 @ R P TI 9 & * * * # £ a; -fe 4 $ £ $ * $ * $ $ ^ :fe $ à; ;fe # $ 
9 0 8 0 0 =- t Ji t m r r _ 4 : f ;:■ 00 
& 338 nnsuB 2748 ■ PR I NT "Ì2 R I GHT ]"; R 

308 8 r r M I Ts$ K &?$ .■ ì .■ 1 > ~ 1 1 0 fl T NEH R7$-' 
MI DIR R?$ , 2.' : ' RO“RO t 1 ' GOTO 3888 
3818 V?=ZL-Z4 

3 0 2 8 0 0 S U B 2 7 4 0 ■ P R I N T 1 f C 2 RIGHI]"; : B 

■7 4;- Jfjttj 

08 '18 ir m 1 T 'T( pTT , 1 5 = ~ 8 ,! ts-|FN 

M T D $ ? 37$, 2 j ■ RG-=R0 + 1 = GOTO 3038 
3840 PR INI- M7-7 L-74 

-f 0 |"" r S“| ~ \* 7 A. |,|7 

3005 IF EV=-T THEN H7:£=H2# : r?$~72$ 

386 O R? =LEH < R?’j- > : B7 “LEM < B 7 $ > I F B 7> 
h7 tmEN C7^”B7^ : B7$ “-07T ' R7T—C7 




AijPiri 

3838 


MV'-T k ''-'h[37/9> 

P4~ / P 3 + i ) #0^77 

POR CJJ=Ì TO 34 
■“rt '^"F 7. T 

|ic':‘ " hi fl"r “■ # ■ ■ 4 f ;à: T 4 1 ' : lh ^ 'h 3* ,V 


32h0 
37 90 

3300 

33 1 0 
3328 
3338 

3358 

3360 

3378 

3338 

8330 

3408 

3485 

34 1 8 

3428 

343G 


3448 

3458 
3468 
0000 
89 1 8 
8820 


' 8 i;;. 8 

8870 


If LE U ■■ U 7 ■ v' > -c" 3 7 h IF N F Cf p T .T - = f .. F H < 

u?^ >, t li 7 tj?i ~ M 0 " ^u?i ■ ne>;tt j 

X7è^7T4N7$ 


NEKTBÌ 

FOR CF=1 TO Z2 
GOTO 1789 

l f rpi. „■ -r 1 ” rp 

p p p-| -vr ^ 4 ^ ^ ^ ih; # ^ ;T ^ ;£ ^ i; ^ 1 =ft- 

RFj -1 -■?. POS izi omrnentq dello * 

REM * VIRGOLR OLI ; INTERNO M 
REM t BEL RIGliLTRTO ?V ii9L.[I '¥ 

R'p M ?«; 'è; :* '4 : 4 «? v?) •*• i ;è. * t ^ ’# -4 \¥. '$ ;4 : 

IF ROO0 THEN FOR 0X=1 TO RO-R 
>' 0-' p $ : REXTRX 

rr ì:;;v\! T T ’ì "fi ipM "'■T,-: lf » : Ti 

Miri 3420 

Rf=LÉFTÌ (Rf , LEM < > -SS > - " . M +R I 
GHT^<R:^,3Q' 

Tp M J T;|i ( p'L 1 , j r r * f :Ti 1 1 TpTfj F-^T 

Ii$ l R :è , 2 > : 00 T 0 3420 

IF EV® 1 THEN 

PR 1 1-1 T L fl L H r nMF ] F 1 7 BONN I r . '' R I OH T ] 
[RVS - IL prou' TR7' 1 - E 
■' I RVOFF j H PR ! NT tl l BONN 1 IJ R t ■ GO 
TO 28028 

v7T=m i Tri' t M7T . 2 '> ■!■ r-; 7L 
g;Qr-:Voi_ ■■; M x r >7 f ^ 7 -^ s ;[ _ E 1 ì 

GOTO 3238 

p r h ! -k a * _ 4i ìì: * # :fe :fe * 4 $ ^ 4 ;fe 4 

£ RÓMTJME mT r;T L-!F ppf; :fe 
p F ; 1 j £ 4 = » ife 4 ; 4; T ih- :* & 'f 8 3 t t T ^ : ■£ ^ -v L 9 A 

PR IMT’T HOME ] £ i 7 BONN 1 f 2 R I GHT J 
[R VOI IL RISULThTO- £f r ‘ 

: rpynp n i " * pp t i-iT ** r Tir^-*N 1 " 

G E T K K $ : T F i< K ■$ - H '♦ t pp N 3 g g g 

CLR GOTO 1880 
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PROGRAMMIAMO 
I TASTI FUNZIONE 

di Giancarlo de Cobelli 



Molti possessori di Commodore 64 
si saranno domandati come si utiliz- 
zano quei quattro tasti posti alle- 
strema destra della tastiera. La mag- 
gior parto dei giochi ed anche qual- 
che programma di utilità fa uso di 
questi tasti per scegliere delle de- 
terminate funzioni che permettono 
di stabilire i parametri necessari al 
programma. 

I tasti funzione numerati da Fi a F8 
sono indirizzagli da programma 
BASIC per rendere più semplice l'u- 
tilizzo di un programma. Vengono 
testati dal programma utilizzando 
semplicemente una routine di GET, 
che a seconda di quale tasto funzio- 
ne è stato premuto salterà ad una 
determinala subroutine che svolgerà 
la funzione prestabilità Oppure si 
può attribuire ad ogni fasto funzione 


una determinata istruzione per poi 
rendere più semplice l’utilizzo di 
questultima. 

In totale possono essere utilizzati 16 
tasti funzione usando la maniera di- 
retta (fi , f3, f5, f7), con il tasto SHIFT 
(f2. 14, f6 f f8) f con il tasto COMMO- 
DORE (come nella maniera diretta) 
e con i tasti SHIFT più COMMODO- 
RE (come con SHIFT). si può utiliz- 
zare anche il tasto CTRL (Control) 

I codici CHR$ dei tasti funzione si 
possono trovare su tutti i manuali 
che trattano la programmazione del 
Commodore 64. 

Se si volesse utilizzare i suddetti tasti 
per memorizzare in ognuno di essi 
un loken BASIC, per facilitare cosi fa 
scrittura di un programma, bisogna 
per forza ricorrere al linguaggio 
macchina per evitare tutti quei pro- 


blemi che il programma in BASIC 
comporterebbe. 

Ad esempio se io digitassi le righe 
più avanti proposte avrei, ogni volta 
che premo il tasto fi, il caricamento 
da disco in memoria del primo file. 
Oppure, premendo f3 riporterei il 
fondo dello schermo al colore origi- 
nale. Ma appena caricherò un nuovo 
fiie il programma in memoria verrà 
eliminato'perché il sistema operati- 
vo riaggrorna i puntatori di inizio 
programma, numero linea ed inizio 
variabili in funzione del file che verrà 

10 GET AS:IF AS-’ 11 THEN 10 
20 IF AS=CHR$(133) 

THEN LOÀD "\S 
30 IF AS-CHR$(134) 

THEN POKE53260.6 

11 listato proposto è un programma 
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in BASIC, Contiene i dati in codice 
esadecimale del programma in lin- 
guaggio macchina che permette di 
attribuire a 16 tasti funzione una de- 
terminata stringa di caratteri sotto 
forma di DATA, a piacere dal l'utente. 
Il programma è stato locato alla lo- 
cazione decimale 53128 per permet- 
tere l'utilizzo anche dì programmi 
molto lunghi, nonché del BASIC 4.0 
Le linee da 128 a 130 contengono la 
solita routine di conversione da esa- 
decimale in decimale per permettere 
al computer di interpretare i DATA 
che sono forniti sotto torma esa per 
renderne più facile la lettura e dimi- 
nuire le possibilità di errore. 

Dalla linea 143 inizia la routine che 
permette la lettura delle stringhe che 
attribuiscono a ciascun tasto la sua 
funzione. Sì possono inserire strin- 
ghe non più lunghe di otto caratteri, 
in caso contrario avviene ta segnala- 
zione di errore e fine del programma; 
per personalizzare j DATA da me 
proposti basta sostituire al posto 
della mia strìnga la stringa da voi de- 
siderata facendo attenzione che I 
primo DATA di ogni riga non corri- 
sponde al primo tasto funzione bensì 
all'ultimo. 

Come spiegato nelle REM, per utiliz- 
zare i 16 tasti ridefiniti bisogna usa- 
re: la maniera diretta, premendo cioè 
il tasto da solo, shiftata, cioè il tasto 
funziona unitamente al tasto shift, 
contemporaneamente al tasto GOM- 
M ODOR E o il tasto CTRL (Control). 
In figura 2 c'è il disassemblato delia 
routine in linguaggio macchina. 
Questa routine fa uso dellinterrupt 
che significa richiesta di interruzio- 
ne del programma. Infatti ogni ses- 
santesimo di secondo il micropro- 
cessore interrompe il programma ir 
corso per eseguire alcune routine di 
controllo. Fra questa routine salta ad 
eseguire un programma la cui loca- 
zione di partenza è contenuta nelle 
locazioni di memoria $031 4 e $031 5. 
Questo indirizzo è di solito SEA3I 
dove è locato un programma che 
svolge le normali routine di controllo 
del microprocessore, 

Ora modificando questo indirizzo fa- 
remo eseguire ai sistema operativo, 
prima dei solito giro, una routine 
creata che inizierà all'Indirizzo 
da noi modificato. 

L'istruzione SEI disabilita la richiesta 
di interrupt per evitare che una suc- 
cessiva richiesta vada ad interrom- 
pere quella in corso. Poi avviene la 
modifica dell'indirizzo da cui dovrà 
iniziare la nostra routine ed infine 


viene riabilitato rinterrupt (GLI). A 
SCF9D inizia la nostra routine; essa 
salva i registri nello stack, controlla 
il tasto premuto e se questuiti ino 
controllo riporterà un codice corri- 
spondente a SHIFT o COMMODO- 
RE o CTRL testerà quale di essi è 
stato premuto per poi andare a leg- 
gere la stringa contenuta nel tasto 
funzione premuto. La lettura della 
strìnga viene eseguita dalla routine 
che inizia a $CFE0. Dopo aver stam- 
pato sullo schermo il contenuto del- 


ie stringa od aver controllato che 
nessun tasto di quelli interessati è 
Stato premuto rimetterà nei registri Èl 
loro contenuto originale e salterà al- 
la normale routine di interuppt che 
come prima detto inizia a SEA31. 
Questo comunque è solo un esem- 
pio di quello che si può fare utiliz- 
zando llnterrupt dei processore 
6502, Potrete cosi creare tutte le rou- 
tine che da BASIC vi sembrano im- 
possibili utilizzando questo sempli- 
cissimo sistema. 


CFS 8 

73 



SEI 



CFC 4 

LA 



hop 


CFfi? 

R3 

?C 


LPR 

nssc 


CPCC 

CR 



N 0 P 


CF$E 

RE 

14 

Ù3 

3TR 

*0314 

» j. 

CFCC- 

A3 

C5 


im 

iCo 

CF3E 

m 

CF 


LBR 

«IGF 


CFC 3 

HO 

03 


aiv 

#*03 

CF90 

su 

' S 

03 

3Th 

*0315 


CF r.R 

84 

FF 


oTV 

*fe 

CF93 

50 



CLI 


* / 

CFCC 

C3 

F£ 


CMP 

*FE 

CF94 

E ; 5 

33 


STB 

*33 


CFCE 

FU 

n 


BEO 


CF96 

R 8 

oò 


LDfl 



C FD0 

C 8 



INY 


CF33 


37 


IT fi 

*37 

* / 

CFPÌ 

E3 



in:-: 


CF9h 

m 



RT3 


* ^ 

CFP 2 

E 8 



I HX 


CF9I: 

Eh 



M0P 


. * 

CFP? 

E 3 



IHX 


CF3C 

ER 



NOF 


# ,■ 

CFP 4 

E 8 



imo: 


CF9B 

48 



PHR 



CFP5 

E 8 



ih: 


CF9E 

ffifl 



t::r 


• t 

CF PC 

E 8 



in:: 


CF9F 

43 



PHR 



CFP 7 

E 8 



I HX 


CFFI0 




TVH 



CFP 8 

E 8 



I HX 


CFR 1 

48 



PHR 



CFD? 

co 

07 


CPY 

#*07 

CFfli 

R7I 

C‘5 


LPfl 

se 5 


CFPB 

DO 

Érj 


BNE 

SCFCR 

CFh4 

05 

FB 


CMP 

*FP 


CFPP 

4C 

F 6 

CF 

JMF 

fCFFC 

C-Fflta 

FR 

4L 


BEO 

*CFFk 


CFE 0 

Hh 



HOP 


CFm3 

85 

FB 


STA 

t-FB 


CFE 1 

:-:r 



T : a 


CFRR 

ER 



N0P 



CFE 8 

85 

FC 


STR 

f FC 

CFR E 

R 2 

00 


ld:< 

#*00 

« • 

CFE4 

A? 

CF 


LPR 

# * C F 

CFflB 

Fili 

SD 

02 

LDh 



CFEC 


FB 


3TR 


CFE0 

R3 



TRV 



CFE3 

fio 

00 


LEV 

«ZOri 

CEBI 

co 

m 


rpv 

#*C10 

. t 

CFER 

ri 

FC 


LHR 

» *F C ' 

CFE3 

FU 

0 ? 


BEO 

f CF PE 


l.fcl 

CiO 

77 

02 

0 TR 

•10277 

C F£5 

8 R 



TKR 



CFEF 

f; 0 



[UV 


CFE 6 

13 



CLC 



CEFO 

co 

0 ;£ 


rpv 


CFE7 

fS 

20 


RBC 

#*20 


CFF 2 

hè 

rr 


FNE 

*r FEh 

CFE3 

m 



tr;: 



CFF4 


co 


3 TV 

*r>- 

CFBfi 

m 



PEV 



CFFF 

C 8 



plr 


CFfB 

13 



CLC 



OFF 7 

Ho 



T RV 


CFEC 

90 

17 -71 


ECC 

*CFB 1 


CFF3 

83 



flr 


LF IT 

EU 

80 


cp:< 

#f60 


CFF - 

hR 



tr:: 


CFl 0 

:jy 

OS 


FRI 

*CFC4 


CFFR 




F'Lh 


CFC2 

R 2 

60 


LUX 

#*60 


CFFF 

4C 

31 

ER 

roo 

*ER'?i 








i'HT 

Ufi 



TP! 
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100 

101 

102 

103 

104 

105 

106 

107 

108 
103 
110 


REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 


122 

123 

124 

125 
1 £6 

127 

128 

123 


************************** 
* * 

* TASTI FUNZIONE * 

* ' * 
************************** 
* 

* 

* 

Gì IRN CARLO DE COBELL I 


************************** 


RUTH OR SOFTWARE 


111 

REM * 

1 

* 

112 

REM * VIC 20 + EXP. 

NO 

* 

113 

REM * COMMODORE 64 

SI 

* 

i 14 

REM * COMMODORÉ 4030 

NÒ 

* 

115 

REM * COMMODORE 8000 

NO 

* 

i 16 

REM * COMMODORE 16 

NO 

* 

117 

REM * COMMODORE PLUS 4 

NO 

* 

120 

121 

REM * * 

REM ************************** 


FOR K=53 1 28 TO 5324?: READ flf 

rem ************************** 

REM * CONVERSIONE HÈX TQ DEC * 
rem **************** ********** 
X=flSC < L EFTf < A4 , 1 > > ~48 : 1 F X>9 T 
HEN X=X-7 

V =RSC < R I GHTT < A * , 1 > ) ■ - 48 : I F V>9 
THEN V-V-7 


130 

131 

A=X* 1 6+V : POKE ì 

132 

DATA 

78,A9,9C 

133 

DATA 

SD, 15, 83 

134 

DATA 

85,37,60 

135 

DATA 

98,48, R5 

136 

DATR 

85, FB, Efi 

137 

DATA 

A3, C0, 00 

138 

DATR 

20, AA, 88 

139 

URTA 

30, 02, A2 

140 

DRTA 

A8, 03, 34 

141 

DATA 

C8, E8, E8 

142 

URTA 

E8, C0, 07 


. 14 , 03 , 
.85, 38, 
.E A, 48, 
. C5, FÉ, 
. 00, AD, 
,09, SA, 
, 9£i, F3, 
■ EA , EA , 
.C5/FE, 
. E8, E3, 
, ED, 4C, 


A3, CF 
A9,00 
SR, 48 
F0,4E 
8D , 02 
18,69 
E0 , 60 
A5,C5 
F0, 11 
E8,E8 
F6, CF 


143 DATA ER, 8fl, 85, FC, A3, CF, 35, FD 

144 DATA A0,00;BÌ,FC, 99, 77,02,08 

145 Data ce, 08, B0, F6, 84, C6, 68, Fl8 

146 DATA 68, AR, 68, 4C, 31, EA, 00, FF 
Ì47 : 

148 REM ************************** 
Ì49 REM * LETTURA DATA * 

150 REM *TOK. BASI CATASTO FUNZIONE* 

151 REM ************************** 

152 : 

153 FOR E=0 TO Ì5 : READ B* 

154 L=LEN<B$) :IF L>8 THEN PRINTFj B 
* : PR I NT " MAX. 8 C ARATTE R I " : END 

155 FOR 1=1 TO 8 

156 IF I>L THEN V“0:GOTO 153 

1 57 V=A3C (MIDI (ET , 1 , 1 > > I F V-95 TH 
EH V=Ì3 

158 POKE 529 9 1 + 1 +B*8 , V : NEXT I , E 

159 CLR 

160 SVS53128 

161 NEW 

162 : 

163 rem ********** *******$:******** 

164 REM * ' SENZA TASTO SHIFT * 

165 REM * F? FI F3 F5 * 

166 REM ************************** 

167 " ■ 

163 DATA "PÈEK", "FOR", " IF' 1 , "GOTO" 

169 : 

1 70 REM ************************** 

171 REM * CON TASTO SHIFT * 

172 REM * F8 F2 F4 FS * 

173 REM ************************** 

174 : 

1 75 DATA "POME " , " NEXT 11 , " THEN " , “ GOS 
UÈ” 

176 : 

177 REM ************************** 

178 REM * CON TASTO COMMODORE * 

179 REM * F7 FI F3 F5 * 

180 REM ************************** 

131 : 

182 DATA "CLOSE", "OPEN" , ‘'PRIMI#" , " 
INPUT#" 

183 : 

184 REM ************************** 

185 REM * CON TASTO CONTROL * 

1 86 REM * F? FI F3 F5 * 

18? REM ************************** 
188 : 

189 DATA "RUM*-", "LORD" , "SAVE" , "LIS 

' f" 
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L’ARCHIVIO 

FOTOGRAFICO 

di Renzo Arrigoni 



Questo programma è uno sin riga- 
to ‘data base" dedicato alta fotogra- 
fia È stato fatto per aiutare quei fo- 
toamatori che hanno accumulato 
centinaia e centinaia di fotografie e 
vogliono mettere ordine nel proprio 
archivio, di solito io dico per espe- 
rienza alquanto caotica il pro- 
gramma consente di codificare le fo- 
to in modo razionale ed offre la pos- 
sibilità di ricerche all'interno dell'ar- 
chivio stesso secondo le specifiche 
desiderate. 

Le fotografie vengono classificate 
con un numero progressivo, viene 
assegnato un tìtolo ed un codice 
particolare formato da sei numeri 
che servono ad individuarne le prin- 
cipali caratteristiche 
Naturalmente l'archivio viene memo- 
rizzato, su nastro o su disco, in flles 
ai quali l'utente attribuirà nomi di- 
versi (ad es ' stampe ' o "diacoior 4“' 
o altri) per individuare gruppi omo- 
genei di fotografie. 

Altre operazioni possibili sono coi 
quelle di stampa deirarchivio, di ri- 
cerca con stampa delle foto che si 
vogliono selezionare, variazione del- 
ie caratteristiche assegnale e inter- 
pretazione dei codice delle foto 

Fra le caratteristiche di questo 


programma, la più interessante per- 
mette di personalizzare secondo le 
proprie esigenze il programma stes- 
so. con modifiche che si effettuano 
con grande semplicità. In altre paro- 
le questo può considerarsi alia stre- 
gua di un canovaccio sul quale cia- 
scuno, se lo desidera, può trovare il 
modo migliore di lavorare Per que- 
sto il programma è stato strutturato 
a blocchi tra loro indipendenti, o 
comunque ben distinti, in modo da 
poter intervenire all'Interno di essi 
senza problemi di funzionamento 
Passiamo ora ad analizzare il pro- 
gramma net dettaglio per sottolinea- 
re quali siano i punti in cui è possibi- 
le o utile intervenire. 

il programma 

Alla riga 10 viene dichiarata la di- 
mensione del vettore a S per la ca- 
pienza in memoria di duemila foto- 
grafie. In realtà la memoria del cal- 
colatore consentirebbe dimen- 
sionamenti più ampi, A questo propo- 
sito viene segnalata, nelle note al 
programma, come fare per cambiare 
ti dimensionamento. 2000 elementi 
rappresentano una quantità pruden- 
ziale non essendo possibile deter- 


minare a priori la lunghezza del dato 
variabile cioè il (itolo della fotogra- 
fie. Tale titolo andrebbe contenuto 
mediamente, ma non obbligatoria- 
mente, in venti/ venticinque caratteri. 
Se la capienza di 2000 foto sembras- 
se modesta, si ovvierà creando, con 
fiies di nome diverso, archivi paralle- 
li contenenti ognuno materiale omo- 
geneo. 

Dalla linea 200 alla 480 viene pre- 
sentalo il menù con tutte le opzioni 
possibili. 

Vale la pena di ricordare, e questo 
vale anche per il seguito, che tutti i 
caratteri grafici per ottenere i numeri 
in revese, o quelli lampeggianti, pos- 
sono essere tranquillamente elimi- 
nati a favore di un ulteriore risparmio 
di memoria. 

Dalla 500 alia 599 si trovano Je i- 
struzioni "DATA 1 che serviranno a 
codificare le singole fotografie Ver- 
ranno presentati sei format (se ne 
possono creare altri), di dieci linee 
ciascuno, contenenti informazioni di- 
verse 

Per ognuno di essi si segnalerà la 
scelta battendo il numero corrispon- 
dente. 

Su questi si può intervenire a pia- 
cimento, sostituendo con altri Quelli 
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PROGRAMMA : RRCHF0T0 

PRO 








- 

- — 



VRR - ì 

LINER 

DEL PROGRAMMA 



- 

t 




_ ^ 



me \ 

150 

1130 

1180 

1240 

I630 

1648 

i 

1730 

1740 

2140 

2158 

2250 

2255 

< 

2680 

2720 

3670 

3675 

3680 

3728 

! 

3300 

4150 

4180 

4220 

4358 

4520 

B$< ! 

1180 

1200 

1240 

4138 

4135 

4140 

1 

4160 

4180 





B< ! 

3060 

3080 

3890 




BE£< ! 

3063 






Et ! 

1126 

4990 





CD ! 

3028 

3860 





CF ! 

3323 






CFi ( 

3010 

3020 

3040 

3860 



m ! 

1160 

3030 

3098 

4120 



m f 

3340 

3128 





EM$ ' 

1 800 

1838 





EH ! 

1800 

1810 

1830 




ES ì 

1 000 

1330 





ET ! 

1380 

1330 





F D ! 

3040 






FF ! 

3040 






I ! 

1120 

1130 

1180 

1240 

1 260 

1630 

f 

1640 

1650 

1738 

1740 

1758 

2140 

i 

2150 

2160 

2250 

2255 

2257 

2680 

! 

2720 

3660 

3678 

3675 

3680 

3720 

\ 

3800 

4150 

4188 

4220 

4350 

4510 

i 

4520 






If 1 

1130 






J ! 

1160 

3880 

3098 

4120 



K ! 

1080 

1140 

1180 

1280 

1240 

1260 

1 

4100 

4130 

4135 

4148 

4155 

4168 

i 

4180 

4200 





K$ ! 

1130 






M ! 

4150 

4155 

4130 




N ! 

1040 

1128 

USO 

2530 

2680 

2920 

! 

3560 

3660 

4520 




NF$ ' 

1600 

1628 

1710 

1728 

2100 

2120 

t 

2220 

2240 





Q ! 

195 






R ! 

4150 

4180 

4220 




T ! 

1 

1126 

USO 

2509 

2638 

2948 

T 

3580 

3660 

3720 

4520 



IR ! 

3650 

3668 

3670 




UH i 

1046 






X ! 

450 

468 

3068 

3880 

3090 


XX ! 

3760 






XX$ ! 

1540 

1560 

2048 

2060 

2560 

2580 

! 

2609 

2780 

3200 

4380 

4350 

r Aia ni 

r J V U 

Z [ 

440 






25 ! 

400 

420 

440 





ritenuti inutili o non essenziali, se- 
condo il personale modo di vedere 
l'archìvio. Per facilitare le operazioni 
di modifica sono stati scritti ognuno 
su una propria linea. 

Il criterio da seguire è, come owìo r 
quello di raggruppare dieci a dieci I 
dati tra loro omogenei, possibilmen- 
te dedicando quello di testa a titolo 
del gruppo (salvo intervenire nel 
programma per recuperare anche 
questo dato a possibile opzione). 
Qualora invece non si desideri utiliz- 
zarli tutti, si potrà eliminare quelli 
inutili scrìvendo: DATA’* 

Le righe 1000/1300 assegnano i 
valori agli elementi deli archivio, nu- 
merandoli progressivamente Vale 
quanto detto prima a proposito del 
titolo, che potrà essere anche uno 
spazio vuoto, qualora non sì intenda 
assegnarlo. 

Le successive linee, da 1500 a 
1830, riguardano fa registrazione e la 
lettura dei files, da nastro o da disco, 
in fase di battitura potrà essere op- 
portuno trascrivere le linee relative 
alla periferia che si intende usare. 
Così, chi possiede il solo registrato- 
re, eviterà di trascrivere le linee da 
1700 a 1830 comprese, e da 2200 a 
£260 comprese, correggendo even- 
tualmente anche dove viene richie- 
sta l'opzione Mastro— Disco. 

Le righe che vanno da 3000 a 3220 
servono per leggere in chiaro il co- 
dice assegnato alla fotografia. Si in- 
serirà Liniera stringa relativa alla fo- 
to, ad esclusione del titolo; verrà let- 
to il numero della fotografia e con- 
fermato il significato del codice. 

La routine da 3500 a 3800 stampa 
il contenuto deirarchivio. 
Utilizzando, per esempio, carta ade- 
siva si potrebbe sveltire il lavoro di 
archiviazione. La routine di ricerca, 
da 4000 a 4380, consente di visiona- 
re le foto in memoria ed estrarre dal- 
t’archivio quelle che hanno le carat- 
teristiche desiderate. 

La ricerca avviene suli a base di li- 
na o più scelte contemporanee (al 
lìmite tutte), e si esegue digitando a- 
stensco nei format che non sono es- 
senziali aila ricerca e battendo inve- 
ce il numero di codice in quei forma- 
t dove si desidera effettuare la 
selezione. 

Le restanti istruzioni riguardano le 
modifiche che si rendessero neces- 
sarie, su tutti i campi previsti. Biso- 
gnerà quindi richiamare la fotografia 
col numero progressivo preceden- 
temente assegnato e reinserire il tito- 
o eventualmente cambiato e i re- 
stanti dati, come richiesto di volta in 
volta. 
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f%@ RFhl *****4***************** 

51 rem * * 

52 REM tH L ' ARCHIVIO * 

S" : : REM * FOTOGRAFICO * 

54 REM * * 

hfi REM *********************** 
Si REM * ■* 

42 REM * ROTORI ' * 

63 REM * + 

54 REM * MARCO E RENZO * 

45 REM * ARRI GONI * 

55 REM » » 


ss REM *********************** 


70 rem * VIC 20 NO * 

71 REM * VIC 20 + EXP SI * 

72 REM * COMMODORE 04 81 * 

73 rem * SERIE 4000/8086 SI * 

74 REM * COMMODORE 16 SI * 

75 REM * PLUS4 SI * 


78 REM *********************** 

110 PRIMI" C OLEARI" 

120 PR I NTCHRf \5> POKE 5328 1 .■ 5 : POKE 
53280.- 5 REM ABOLIRE SE SI US 
A TV B I A HCO /NERO 
140 PRINTCHR$<14> 

14* REM ********************** 

144 REM * DIMENSIONE VETTORE * 

i 4 7 p£M ********************** 

150 Di'ti Ri <2000) REM SE VIENE RUM 
EHTRTO IL DIMENSIONAMENTO, BIS 

dona cambiare 

151 REM TUTTI I CICLI POR I = 1 T 
0 2000 

176 REM ARCHI V 10 PO 
T 0 G RAPI C 0 
ISO PRINT" E5 DONNI" PRINT" 

* _ - 1 -, X F" 

t A0 Pp r UT " r 2 DOWN 3 " PR 1 NT " 

_ri ri ... * - -, - r* 

195 POR 0=1 TO 2000 -NEXT 

199 REM MENU 

200 PR 1 NT " [ r LEAR 3 " : PR I NT " E RVS 3 

[RVOFF 3 W / E RVS 3 
[RVOFF]" : FRI 
NT 

'220 PRINT" - [ RVS 3 1 E RVOFF 3 - “L 
RSS I FI GAZI ONE" -PRINT 
240 PRINT" - E RVS 3 2 E RVOFF 3 - '-E 
MAR I ZZAZ t ONE FILE" : PP I NT 
260 PRINT" - E RVS 33 C RVOFF] - LE 

TTURA FILE" PRINT 

230 PRINT" - E RVS 14 E RVOFF 3 - ~0 

N TENUTO ARCHI V IO IN MEMOR I A " F 


RI NT 

300 PRINT" - [RVS 35 [RVOFF] - ~E 
CODIFICA" PRINT 

320 PRINT" - ERVS36C RVOFF] - #7 
AMFft" : PRINT 

340 PRINT” - ERVS37ERVOFF 3 - -I 
CERCA" SPRINT 

350 PRINT" - [ RVS ] 8 E RVOFF 3 - xR 
RI AZIONI" ; PRINT 
360 PRINT 

380 PRINT" 12345678” 

400 OET Z%- 1F 2t*”" THEN 456 
420 IF Zt<"t" OR Z»"S" THEN 450 
440 Z=VAL<Z$> =0N ZGOTO 1000,1500,2 
00O ■ 2500 - 3000 - 3500 -4000,4500 
450 FOR K=i TO 300 ■ NEXT 
460 PRINT" EUR] E RVS 3 1234 

5 6 7 8 E RVOFF 3 "FOR N=1 TO 30 
0: NEXT = PRINT" C2 UP 3 " 

430 GOTO 380 

500 DATA SOGGETTI - 9 - PER A I LTRI 

501 DATA - 1 - FOTO D'ARCHITETTURA 

502 DATA - 2 - PAESAGGI DI CHMPAGN 

A 

503 DATA - 3 - PAESAGGI DI MARE 

504 DATA - 4 - PAESAGGI DI MONTHGN 

A 

505 DATA - 5 - CITTA-' - 

506 DATA - 6 - PAESAGGI DIVERSI 

507 DATA - 7 - REPORTAGE 

508 DATA - 8 - RITRATTI 

509 DATA "" 

=i 1 fi urth SOGGETTI - 3 - SE GIR' 
SCELTO 

511 DATA - 1 - GLAMOUR 

512 DATA - 2 ~ FOTO SPORTIVE 

513 DATA - 3 - FOTO SUBACQUEE 

514 HATA - 4 - ELABORAZIONI 

515 DATA - 5 - MAGRO FIORI 

516 DATA - 6 - MAGRO INSETTI 

517 DATA - 7 - MAGRO FUNGHI 

513 DATA -- 8 - DIVERSE 

519 DATA "" 

520 DATA GIUDIZIO 

521 DATA - 1 - FOTO MEDIOCRE 

522 DATA - 2 - FOTO DISCRETA 

523 DATA - 3 - FOTO BUONA 

524 DATA - 4 ~ FOTO OTTIMA 

525 DATA - 5 - FOTO ECCEZIONALE 

524 DATA - 6 - FOTO DA CONCORSO 

527 DATA 7 - FOTO GIÀ' PREMIATA 

523 DATA - 3 - FOTO DA PRESENTARE 

A CONCORSI 
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529 

DRTh - 9 ~ 

SENZA GIUDÌZIO 

530 

DRTfi CONDÌ 

ZI OHI DI LUCE 

Er :“: 1 

D^Th - 1 - 

NATURALE ALL ALBO 

ILT ■" ■”■ 

■ F 

BRTR — 2 - 
0 

NATURALE RL TPRMO irr 

533 

D9TP - 3 - 

MEZZOGIORNO 

534 

BflTfi - 4 « 

COMI* r 7 1 01 \ I HOpT'IRL. T 

535 

DfìTR - 5 - 

pi-* T 1 FIC IRLE D T FFUSR 

506 

DPT R ^ 6 — 

RRTIFICIRLE DIRETTO 

537 

DftTR - ? - 
PEN 2 R 

LAMPADE Rtt INCRNPFs 

53G 

DPTP - 3 - 

NOTTURNO 

539 

TiRTfì - 9 - 

NON CLASS IFICRTR 

548 

D9TH OBIL T T 1 VO 

54 1 

DRTh - 1 - 

ORfìNflHtSCiOLv 

s 42 

irPTO - 2 - 

ORRNIiftNOOLÒ 'CD 1 0 

543 

DhTR - 3 - 

NORMALE 

544 

DOTO - 4 - 

MEDIO TELE 


riRTP - 5 

! UMGP pnCRl V 

546 

pfiTn ^ k _ 

SOFFIETTO MRCRO 

547 

DOTO - 7 - 

L EN T E ! '■; 

c-,4x 

r*RTfì - 8 - 

LENTE 2 X 

549 

DRTfi - 9 - 

LENTE 3 X 


DATA d 
DIAFRAMMI 

TEriPi 

crCT -f 

Dfltfì - 1 - 
RPERTO 

Dfl 1/125 fi 1/2000 

552 

- 2 - 

MEDIO 

£P 17125 fi 1/2000 

1 crcr ; > 

DOTO ~ 3 - 

CHIUSO 

DO 1/125 H 1/2000 

554 

DRTfi - 4 - 
RPERTO 

Dfi 1/30 H 1/125 

555 

DRTR - 5 * 
MEDIO 

DR 1738 A 17125 

554 

DRTR - 6 “ 
CHIUSO 

DA 1730 A 17125 

CCT”? 

J J ^ 

DRTR 7 “■■ 

DR SEC, A 1715 


APERTO 


553 

DATA - S - 
MEDIO 

DA SEC. R 1715 

559 

DRTR - 9 - 
CHIUSO 

DR SEC- A 1/15 

396 

pfm **ì***^-- 

*■##*#=♦!*■*!*!+**$# 


S9? REM * CLASS I F I CFG I ONE ¥ 

93S- REM * BELLA FOTOGRAFIA f 
9 QQ REM £4 4 

1000 PRIMI 11 CCLERRr 
1020 PRIMI : PRIMI "/OMERO UELL'ULTIM 
A FOTO CATALOGATA" PRIMI 
1048 INPUT UNM-UN+1 
1060 C 'R I HI ’ PR INI "QUANTE FOTO PENSI 
DI CATALOGARE OGGI Étl 


H ' ' p 7 0 PR IMI PRIMI" 1 r V E NTU AL * * 1 H ! T 
f pfr rERHINRRE " 

■ *)?5 pR IMI” L I Mfl I SS I ONE DE ! DF ,T 
I, BATTERE * *" "‘RI NT 
1080 INPUT K:T“K™: 

t 1 rivi r, £- 1 1 \~ 11 f n i c i^p i »» 

i : TU POR I -N " f 0 N+T : PR! NT = PR INI 
1*25 PR I NT 11 r pv 51 ■ ; p 1 ( ù pr 3 « ; t 

OLO BELLO FOTOGRAFIA fRVS2 
r PVQFF ] " 

1 ! , > s GOSUE 4 900 ' PR I NT" T 22 R I OHI 1 EVI 
E LIBERI "BL 

I ! :! 0 i INPUT r V T[f-^gTR$M ■ P ?/ 1 >*- 14’+'* 

■' +K I - " 11 +R$ a ) PR I NILI CLE ARO " 

p&immay 

1 140 POP L=0 IO 5 

1160 FDR 7™ri TO 9 RE‘ r D W ■ PRIMI THB 
<5>B$ ' PRIMI ; NF/TJ 

1 1 80 GEI BT< K > I F Sì <K ' = 11 + " THEH k * 
6 ■^(I> = ,,II T^T GOTO 1260 
12 ’ip IR BT , -T- '■<■" 1 ” OR £3 -:R » W 9 M THEN 
USO 

1220 PP I NT " [ CLERR 2 11 
1 2 4 0 A$ C I > -Ri C I > +T?$ < f:.; > PR I h ITA! < I > 
1260 HEXTK ^ PR I NT " CÈLEftRT" ' RESTÓSE 
NEXTI -RESTOSE 
1300 GOTO 280 

1497 REM * $*$£*$$**$**;** 

♦■MS REM * SCRITTURA FILE * 

‘-99 REM *nmm***£**m** 

* 500 PR I NT M i CLERR 1 " PRIMI " E RVS I 

C RVOF F 3 F 

LRVS3 CRV0FF1 11 : PRI 

HI 

I I Gl REM MEMORIZZACI OHE 

* S 2 0 FRI NT" SU - P V S ] ! R yOF p r 9 3 7 d 

0 ’ SU IRVSirCRV 

OFF j tSCO 11 

•■,40 gft Tp gnji 9XTC' M 

p J1 THEN 1548 

'568 IP :<àF=*D“ THEN 1780 
TS8 PR I HT" [ 3 DONNI ” PR I NT" #CF: ì 

ITURR SU NASTRO BEL C P E" r PRIN 
T"t2 DONNI" 

600 INPUT ” CHIflmTO" ■ N r T 
620 OPEN 1 . 1 - 1 . NEI 
-O0 FOR I“! TO 2800 ' PR I NT# 1 , RT I ■ 
'048 Ir R^<I>“ ,l,r THEN I =2080 PRIMI# 

1 . " 

* 650 NEXTI 

' 630 CLOSE t : GOTO 288 
1 700 PR I HT " C 3 BONN ] M pfr r mt " t-CRI 

TTURR SU DISCO DEL FILE" : FRI NT 
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"C£ DOMN'3" 

17 ìfi THPM7 " CHIAMATO" : HFt 
',715 ÒPEM 1 5 , 8 , 15 : PRIMT#13j " I " 

1720 QFE: t 2 ,8 > 2 > " 0 : 11 +NF t+ " , $ H " ' GOS 

MB igot? 

t 7 30 FC'R 1=1 TO ' : PP I NT #2 , A f 1 I > 

1740 I F HÌ < I > = " THEN 1 =2000 : PR I NT # 
2 . 

) 750 NEXTI 

j 76,0 CLOSE 2 • •: LOSE 15' GOTO 200 
T 000 INPUT# 1 5, EN, EMf , ET .. E 8 
1010 IF EN=0 THEN RETURN 
1820 PR I NT "ERRORE D I SCO " 

! 030 PRINTEN .■ EM$ * CT » ES : STOP 
;9?7 REM ***m********** 

1998 REM * LETTURA FILE * 

1Q.50 ppM +*+'+^^****+ 

2000 PRINT 0 r CLEfiR] " : PRIMI" [ RVS ] 

[RVOFF] L”! ! ,■_* -%L~ 
r RVS 3 [RVOFF] "FRI 

NT 

2001 REM LETTURH FILE 

2020 FRI NT" Dfl [RVSX-TRV0FFDA3TR 
0 Tih [RVS]“CRV 

OFF] I SCO" 

2040 GEI XX* : IF NXÌO"H" AND XX$<>" 
I'" THEN 2040 

2OS0 IF XX*="D" THEN 2209 
2086 PRINT" C3 DOWN]" PRINT" LETT 
URR [iR NASTRO DEL FILE" ; PRINT" 
12 BOMH1" 

2190 INPUT “ CHIHMRTO" ;NFJ 

2120 OPEN 1,1,0, NFS 

2140 F OR 1 = 1 TO 2000 IN PUT# 1 , fi* < 1 1 

2159 IF R#-< I } = THEN fi* 

< 1 >:=" •' : 1*2000 

2 1 60 NEXTI 

2180 CLOSE 1 ' GOTO 200 
2280 PRINT" [ 3 DONNI" PRINT" LETT 
MRR HR DISCO DEL FILE" PRINT"! 
2 DONNI" 

2220 INPUT " CHIAMATO" ; HFf 

2230 OPEN 15,8, 15 

2240 OPEN 2 , 3 , 2 - " 0 ■ " i-HFÌ+ " , $ > R " ■ G03 
UB 1 890 

2258 POR " ì = 1 TO 2000 : I NPU T#2 , R* < I > 
2255 IF RTH > = "*♦*********" THEN Ri 

1 ;? = " " 1=2000 
2257 NEXTI 

2260 CLOSE 2 - CLOSE 15 GOTO 290 

2496 REM ********** ***** 

2497 REM * CONTENUTO VETTORE * 

2438 REM * IN MEMORIA * 


2439 REM ********************* 

25^01 PRIHT" CCLERP!! n 1 PRINT 
2585 FRI NT 11 C RVS J [RVOFF] *TRM 

Pfi CONTENUTO MEMORI fi [RVS 1 
t RVOFF 1 11 PRINT 

2520 PRIMI" *TRMPfi [RVS] I CRVOF 

PIOTALE CRVSntRV0FF3fiRZI 
fiLE ,f 

2530 FRI NT PRINT" ARTIERE - RETURN 
■ PER SCROLLINO 11 
2540 G93UB 5000 

2560 IF XX$<>"T" fiHD XX#O rt P'' PO V 9 
y.t 3>CHRf \ 130 THEN 2548 
25@@ JF ; THEN N=1 1=2000 -GOt 

0 2680 

2600 IF ««-"P" OR XX**CHR*<I3> THE 
N GOSUE 23O0 GOTO 2630 
2^20 OOTH 2O0 

2600 FOR I*H Tu T PRIHTfi$C I > 

2700 IF XX**CHRf<13) THEN GOSUB 500 
0 

2720 IF THEN 1-2000 

2739 REM BATTI SPAZIÒ PER MENU 

2740 NEXT : PRJNJ M LOTTI * 

1 PER WV* 

27 b'i COSI fF 50™ : f iHT 0 SOM 
2900 PRENT: PRINT 11 *TflMPfi Bfi NUMERO 
" ' PRIMI 

2920 INPUT N PRIMI 
2940 PRINT" 9 NUMERO" : PRINT INPUT 
T ^ RETURN 

7*997 REM *****$$*$*> 

2993 REM $ BECÒfilFICft FOTO * 

7999 REM $r************ 

'O0O RR I NT lr C CLEhR 3 " : PR I HI 
3 005 PRIMI" [RVS] tRVOFF 1 “TIC 

OBIFICFf CODICE FOTO [RVS] 
[RVOFF ]" 

3010 PRINT INPUT "^ODICE BELLA FOTO 
ORRF I fi " ; CFf PR I H T " [ 3 BONN 1 M 
3019 REM CODICE ERRATO 
:i02G CF=LEN<CF:f> CB=CF-6 : IF CF<7 TH 

EN PRIMI"-, \V, , r/ _* 1 * 11 : GO 

TO 30OO 

3040 FF-VRL < CFS > : FE~ VAL < R I GHT$ <CFf , 
6) ? : DB^FF-FB 

3060 FOP TO 6 BE£<K>=MID*<CF*,X 
■N3B7 1 > ••B«:X>“V , fiL < BB^tX V > 

3030 POR J=8 TO BCX) READ Di : NEKT : P 
RINTW 

3090 IF THEN FOP J-FOO + l TH 

'9-RÉflB W : KOT 
3100 NEXT RESTORE 
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3120 PR I HT ' PR I NT ECC® I F I CATR FOTO 
M. "BDZ 1090000 

H40 PRINT "ALTRA -OTO DP DECODIFICA 
RE ? [RVS 3* [RVOFF 3 EFVS3/ER 
VOFF 3 " 

3130 00 SUB 5000 

3200 TF THEN '3900 

4220 GOTO 200 

3496 REM ******************* 

3437 rem * STAMPA ARCHIVIO * 

3493 REM *****##**#*####***# 

3439 REM CONTROLLORE LA STAMPANTE 
3500 FRI NT" CCLERR3" : FRI NT : PRINT" [RV 
Si [RVOFF 3 -T/l -TLL*- - L 

*. * ! **Ot/| “ [ RVS 3 E RVOFF 

3" : PRINT 

3519 REM SPAZIO 

3528 PRINT: FRI NT" BATTERE F 

PER CONTINUARE" 

3540 00 SUB 5000 

3560 PRINT : PRINT" «TAMPA ARCHIVIO 
•BALLA FOTO N. *' ■ INPUT N ■ IF N=0 
THEN N*1 

3580 PRINT PRINT’,' ALLA FOTO N. " - 1 
MPUT T 

3600 OPEN 4,4 

3620 PRINT #4 , CHR$< 14) " ST 

AMAR ARCHIVIO" 

3649 PR I NT#4 PRINT#4,CHPta5> 

3650 TR=0 

3660 FOR I=N TO T ; TA=TA+1 
3676 IF Tfl/2=INT<;TH/2> AND LEN<fl*a 
) ) <33 THEN GOSUB 3300 : GOTO 374 
0 

3675 IF LEN<Af<I>»33 THEN PRINT«4, 
A$< I ) : GOTO 3740 
36S0 PRINT#4,A*a>; 

3720 IF R:r<I)="" THEN I=T 
3740 HEXT 

3760 FOR XK=! TO 5 : PRINT #4 ■ CHR$( IO) 

■ MEXT 

3730 PRJNT84 ' CLOSE 4 : GOTO 200 
3SO0 PRINT S*1 ■ CHR $ < 1 6 ) CHRf < 52 ) CHR$ < 4 
8.W(I) 'RETURN 

3997 REM ############*##*##**## 
3958 REM * RICERCA IN MEMORIA * 
2939 REM ********************** 
4000 PRINT" ECLEAP3 " : PPIMT FRI NT ” E RV 
33 [ R'./OFF ] -I CERCA IN 

MEMORIA E RVS 3 C RVOFF 

"f II 

4010 PR I NT ■ PR I NT " -, MMETTERE I DATI C 
HE SERVONO PER LA" 


4029 PRINT "RICERCA 1 QUANDO IL DATO 
‘NON SERVE" 

4940 FRI NT" BATTERE - * 

4050 PR T NT ' PR I NT " R I CH X ESTÀ STAMPA 

E RVS 3 SE RVOFF! ERVS3HERV0F 
F3 

4060 OOSUB 5000 ■ PRINT" CCLEAR3" 

4100 FOR K=0 TO 5 

4120 FOR J=@ TO 9 ‘ READ D$ : PRINT TAE 
'•;5 Ì D$ ' NEXTJ 

4 130 1 NPÙT B* K > PRINT" ECLEAR3" 

4135 IF BT<K>="$" THEN 4145 
4140 IF £ì(KK"I" OR Bt<SO>"9" THEN 
PRINT "CARATTERE ERRATO 
VALE #“ : ST(F)“" *” 

4145 MEHT 

4150 FOR 1 = 1 TO 2080:F:=LEN<Af<I)> =M 
«S • IF A# < I ) * " " THEN I -2000 : G0 T 
n 4?£ft 

4155 FOR K=0 TO 5 t1=[f 1 
4160 IF THEN NEKTK : GOTO 4 

22G 

41S0 IF B$CK>OMIBf<A$<I>,R~M,l> TH 
EH K=0- M=0 : NEXTI 
4200 NEXTK 

4220 R=0 : RESTORE ■ PRINT At < I > : OOSUB 
4350: NEH TI 

4260 PRINT: FRI NT" ALTRA RICERCA ? 

£ RVS 3S E RVOFF] [RV 

SIN [RVOFF 3" 

4280 GOSUB 5009 

4390 IF THEN 4939 

4329 GOTO 203 

4350 IF XX$=”S" THEN OPEN 4, 4 PRINT 
#4 , A* a > : PRI NT44 : CLOSE 4 
4380 RETURN 

4497 REM ##*#*31»**##*#* 

4498 REM * VARIAZIONI * 

4499 REM ************** 

4588 FRINÌ" E CLEAR3": PRINT"! RVS 3 

E RVOFF 3 VARIAZIONI E 
RVE:3 ERVOFF 3 " 

4510 PRINT: INPUT "NUMERO DELLA FOTO 
DA VARIARE"; I 
4520 A±< I )=" " : N=I T=0 
4540 GOTO 1190 

4896 REM ***#**####***** 

4897 REM * EVTE LIBERI * 

4898 REM *************** 

4999 BL=FRE < 0>- < FRE v 8 > 03 > *65536 : RET 
URN 

5000 GEI XX*: IF m=" H THEN 5009 
5029 RETURN 
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CONCESSIONARIA CONCESSIONARIA 

PER LA PUBBLICITÀ DI MILANO PER LA PUBBLICITÀ DEL CIRCUITO 

radiant gommo italici 

S,FJL ^ S.P.À. 

PALAZZO CANOVA CENTRO DIREZIONALE MILANO 2 - 20090 SEGRATE (MI) 
TEL 02/2155714- 2155726- 2155734 


LOMBARDIA 

Milana 95.9-92.8-97.1 
Bergamo 99.3 

Brescia 92-92, 7 

Como 97,1 

Cremona 99,3 

Pavia 95.9-97.1 

Varese 101.1 


LIGURIA 

Genova 96.25 

La Spezia 98.7 

EMILIA ROMAGNA 

Bologna 88.7 

Modena 87,75 

Parma 87.75 

Piacenza 97.1 

Reggio E. 87.75 


PIEMONTEVAL D AOSTA 

Alessandria 104,3 

Cuneo 90,6-97.6 

Novara 97.1 


Aosta 91,8*92 


TOSCANA 

Firenze 97.6-104.4 

Li vorno 98.2-97, 3 -100.6 
Massa C. 98,7 

Pistoia 97.6-104.4 

Pisa * 97.3 

Lucca 97.3 


LAZIO 

Roma 


99.5 







Quando ho avuto l'idea di 
spronare Voi tettori ad inviare dei 
lavoretti costituiti da una sola riga f 
ebbene non speravo certo in un 
tale successo , 

È proprio per questa risposta 
congrua ed immediata che ho 
deciso di aprire una rubrica 
apposita chiamata appunto * una 
riga”* 

Finché ci saranno idee , fintante 
che Voi lettori invierete 
programmìni con la caratteristica 
di questa rubrica, questa vivrà 
mantenendo quel dima dt 
freschezza, di curiosità e di 
originalità 



Un programma costituito da una sola riga, per sua natura 
non può sortire particolari complessità. Non è detto però 
che tra tutte le idee di una riga non ce ne possa essere 
una che possa essere utilizala all'Interno di un prò- 
gramma complesso per migliorarne raspano estetico, la 
potenzialità, od altro ancora. 

Tutti i lettori che hanno inviato i propri elaborati hanno 
precisato che occorre digitare le righe 1 ' con le abbrevia- 
zioni consentite dall'interprete BASIC del Commodore. 
Tutto ciò poteva essere implicito, ma è altrettanto giusto 
precisarlo. Per questa ragione riporto felenco completo 
deile varie parole BASIC con le relative possibili abbre- 
viazioni {questo elenco è anche presente sul manuale nel- 
la scatola del vostro computer). 

Ritengo che oramai tutti i lettori ed utilizzatori di Com- 
modore siano già a conoscenza della possibilità di poter 
digitare ad esempio P seguito dalla O con lo shìft otte- 
nendo così il medesimo effetto dì quando si digita POKE. 
Nella tabella ed In particolare nelle colonne inerenti alle 
abbreviazioni, tutte le lettera in maiuscolo devono essere 
scritte con il tasto shìft premuto, 

I caratteri digitali normalmente possono apparire in 
maiuscolo mentre appariranno nel formato equivalente al 
carattere grafico quelli digitati con lo sbift. Ancora appa- 
riranno In minuscolo quelli digitati, normalmente, mentre 
saranno in maiuscolo quelli digitati con to shift. Tutto ciò 
dipende dal fatto che sia stato 0 no premuto il tasto con (I 
simbolo Commodore insieme allo shift. 

Veniamo ora ai Vostri lavori tenendo presente che nessu- 
no di questi ha subito qualsivoglia votazione per essere 
pubblicato e tenendo anche conto che in caso di ugua- 
glianza vale purtroppo chi è arrivato prima. A presto. 

Gloriano R 0**i 


#001 

L'artecchlnQ Lo schermo durante l'esecuzione viene ri- 
empito in bassa risoluzione grafica, di una sequenza ripe- 
tuta di quadrati colorati; ad ogni completamento di 
schermo il programma riprende con una diversa sequen- 
za Individuata casualmente. 

(Roberto Bi esatto) 


1 IJJÌ~RHD<IJ';)#20+6:FOR I = l@24 TO 2 
@23 8TEP LO: ' FOR J=@ TO VX : POKE 
I + J , 1 60 ■ POKE *54272+ I+J J ■ NEXT J -■ 
I ' GOTO t 


i h-RNIK 1 > *26+65 : I MPUT "LETTERA " ; 
Bt IF B$OCHR$<A> THEM PRINT"N0 
" ■ GOTO 1 


#003 

Caratteri a caso. Ecco un programma che è in grado di 
mostrare, casualmente, sullo schermo tutti i caratteri del 
Commodore 

(José Andreani) 

i H= ì 824 ■ 6=2023 • X=R ! Hi < 1 > *256 POR 
K=H TO B : POKE K # X : NEXT ■ V=RNB < 1 > 
$X POR K=B TO R STEP -1:P0KE K* 
V : NEXT ■ RUM 


#004 

Multipli. Il programma stampa in continuazione i multipli 
(fino a cento) di una qualsiasi cifra introdotta da tastiera. 
E ovvio che all'Inizio saranno visualizzati una serie di zeri 
fintanto che non verrà battuta una cifra e continuerà con 
questa fino a II 1 introduzione di una cifra successiva* Ogni 
altra spiegazione è naturalmente superflua 

(Dino Ticli ) 

t GEI R$ : N=VfìL < R$ > : PP I NT " [VERDE "J l 
RVS3HULT* 0I rt N : FQR T=1 T0 Imm : PR 
I NT " [ ROSSO 1 m BL EU ] 11 N*T , ■ POR I = 1 
TO 108 NEXT I,T GOTO 1 


#005 

Titoli in movimento. La riga consente, mediante Toso del- 
la funzione COS (X) presente nell'interprete del Commo- 
dore, dì osservare lo scorrere sullo schermo di una qual- 
siasi stringa di caratteri, non più lunga di 12 caratteri. Lo 
scorrere avverrà In maniera sinusoidale. 

(Nicoletta Berlin) 


1 F0R S=0 TO 6.4 STEP . 3 : PRINT Tfl 
B<10*COS<S>+16>; "TITOLATRICE" : F 
OR T=@ T0 10 : NEXTT : NEXTS : GOTO 1 


#002 

'Indovina Indovinello Questa "una riga" contiene un 
semplice giochino che permette di indovinare una lettera 
che viene scelta dal Commodore a caso. 

( Nicola Montanari) 


#006 

Di tutti i colori. Dopo aver digitato il programmino ese- 
guite il RUN e tutto lo schermo diventerà di un solo colo- 
re* Premendo i tasti funzione 1 o 3 si otterrà il cambia- 
mento del colore. 

f Ma$S /Vn/ //ano A f dieri) 
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1 R=53280-GET ftf : B=RJ=" CTF1 3“ : B=fi 
#=" CTF3]” : C=C~E* ; E=E-D : POKE ft.C 
RMB 15 'POKE H+1,E PHD 15: GOTO i 

'l m . : 

PRG MOBIFICRTO 

1 R$=" 13 LEFT3 I = INT 

< RNIK 1 > *255 > + 1 : PR I HT " t CLERR ] M SP 
C<I>fl*;:F0R R=1 T0 280 ■ NEXT : FRI , 
MTB$ : GOTO 1 


#007 

** 


Ancora colori, il programma si limita a mostrare la gam- 
ma dei colori prevista per H Commodore 64 e sfrutta le 
consuete POKature agli indi rizzi 63280 e 53281 . 

(Questa IR si differenzia dalla precedente solamente per 
l'automatismo del cambiamento colore senza sminuire o 
aumentare il valore dell'operato di Massimiliano odi Ste- 
fano. NDR) 

(Stefano Nocilti ) 

#010 

Tutto è casuale In una prima fase dell'esecuzione po- 
trebbe sembrare banale, ma dopo qualche instante diven- 
ta simpatico. Provare per credere! tt programma si basa 
sulla mappa di memoria di schermo e quella dì colore. 
Tutte è casuale: posizióne, carattere e colore. 

( Bruno Gì licosa) 

1 POR R=0 T0 15 : FQR B=0 T0 15 P0K 

E 53280 , R ; POKE 53281>B : F0R H=1 

T0 1 000 : NEXTH : NEXTB : NEXTfì 

1 - — ■ ■ '-M' — _ — 2 

1 T*RND<1>:P0KE ÌT* 1 000+55236 ) > RN 
IK 1 >*16 : POKE < T* 1 080+1 024 >, RND < 
0*254+1 : GOTO 1 


A 

#008 


N fattoriale, perché scrìvere programmi lunghi per ese- 
guire dei calcoli? Ecco qui un programma perii calcolo di 

N fattoriale, (per non incorrere in errori N non potrà esse- 
re superiore al numero 33, NDR) 

(Giacomo Saimeri) 

#011 

Ancora a caso Invece del carattere casuale, ovvero TRND 
(1) *255, può essere sostituito ad esempio da uno fìsso 
come ad esempio T81 , 

(Bruno Gìacosa) 

1 INPUT N : K = 1 : FOR 1=1 TD N:K=K*I= 
NEXT : PRINTK : GOTO 1 

. - — .. . ^ — 

1 RRINTCHR*(RNDa>#255>; POR I = ì 

TO 5 ■ NEXT ■ GOTO 1 



#009 

L'uccellino impazzito. Un pò dì movi mento sullo schermo 
non guasta mai. Ecco allora un uccellino che “vota” sul 
video, (ho voluto inserire una pìccola modifica alla riga di 
Livio in maniera tale da dare maggior effetto ai risultato. 
NDR) 

(Livio Galante) 

#012 

A dollaro. Dopo aver personalizzato la variabile A$ in 
maniera diretta eseguire II GOTO 1 e non RUN, 19 conte- 
nuto della variabile verrà visualizzato in modo interessan- 
te. 

(Daniele Mazzucca) 

PRG ORIGINALE 


t A*- 11 : £*=" = I-IMTfRNDa>* 

255>+l :RRINT H CCLEflR3 ll :PRINTSPC( 

I > fl* PR I NT " r CLERR ] '* : PR I NTSPC 1 1 > 
B* : GOTO 1 

I FOR N=1 TO LEN(hÌ>:PRINT ,, CH0ME3 
[ DOWN 3 C LEFT 3 H$ , N , 1 > ; H t HOM 
E3 J, CHR$<20>; -POR N=0 TG SS'HEX 
TM . N ' GOTO 1 
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#013 

Uno o due. Questa "una riga" può essere scritta abbre- 
viando solamente l'istruzione PRIMI con il classico **T. 
Dopo il RUM sì potrà giocare, il computer "pensa" un 
numero che potrà essere solamente uno oppure due. 
Successivamente noi dobbiamo indovinare il numero. In 
base alla risposta il computer Iota lizzerà la vincita, (tengo 
a evidenziare la soluzione che Daniele ha trovato affinché 
la totalizzazione sia eseguita senza la necessità di utiliz- 
zare una IF che avrebbe compromesso Tobbligatorietà 
deirunicità della riga. NDR) 

(Daniele Mazzucca ) 


1 PRINTHRI $"S : A=INT<RNB( 1 >#2+1 > 
: I NPUT "CHE NUMERO " ; B f S=S + < 0-AE 
S < R-E > #2+ 1 > ; PR I NTR : GOTO ! 


#014 

Rimbalzi. Con un pizzico di fantasia sì possono osservare 
una serie di palline che rimbalzano da un lato all'altro 
dello schermo, (ho voluto suggerire una ulteriore “una 
riga" per poter evidenziare il rimbalzo di una pallina o 
asterisco da una parte all’altra dello schermo. NDR) 

(Marco Busnalli) 

PRO ORIOINRLE 

1 POR 1=0 TO 39’PRINT TRB<I>"*":N 
EXT ; FOR 1=3? TO 0 STEP -1' PRIMI 
TRBC I > : NEXT : GOTO 1 


PRO fidi I F I CRT R 

1 FOR 1=1 TO 3? : PRIMI" CLEFT] *"J : 
FOR R=1 TO 9? : NEXTA; I : FOR 1=39 
TO I STEP -1: PRINT"* C3 LEFT3"; 
•FOR 0=1 TO 99 : HEXTR ... I : GOTO 1 

« 

#015 

Viva l'Italia, li programma disegna, a lutto schermo, la 
bandiera italiana. Il suo funzionamento è estremamente 
semplice. Con i cicli FOR... NEXT si Stampa uno spazio in 
re verse-mode in modo consecutivo per 14 volte per il co- 
lore rosso e 13 volte per I colori bianco e verde, (l'idea mi 
è piaciuta ed ho voluto vedere se era possibile vedere il 
medesimo effetto in altri modi. Eccone due. NDR) 

(Guido Baldini) 

PRO ORI0 

1 POR K= 1 TO 14 :PRINT f, [RVS3 CROSSO 


] CRVOFF] " ; : NEXT : FOR K=1 TO 13 : 
PRIMT'* CRVS] [BIANCO] C RVOFF l n i '■ N 
EXT -FOR K=1 TO 13= PRINT" CRVS] CV 
ERBE ] CRVOFF] " ; : NEXT : GOTO 1 

PRO MODIFICA 1 

1 PR I NT "CRVS] CROSSO] 

"SPC<13>" [VERDE] " : 

goto 1 

PRO MODIFICA 2 

1 A*=" "■ FRI NT "CRVS] C 

ROSSO] " ft$SPC a 4 > " C VERDE ] " A$ ; : G0 
TO 1 


#016 

I mattoni. Come si può riempire lo schermo di mattoni in 
modo tale che sembri un muro senza fine? Ecco “una 
riga” che aiuta allo scopo. I simboli grafici si ottengono; 
tasto Commodore e P, tasto shlfl e L e quindi ancora 
tasto Commodore e P. 

(Raffaele Silvestri) 


1 PR I H T " CROSSO ] C UP ] J_C DOWN ] " ; : FG 
R K=1 TO 30 : NEXT : GOTO 1 


#017 

Il conta Tempo. Il vostro Commodore ha un orologio pre- 
ciso. Sapete che è possibile personalizzarlo ed utilizzar- 
lo? Le variabili di sistema sono TI e TIS, abbreviazioni di 
TIME e TIMES, in TI si ha il tempo espresso in sessante- 
simi, mentre in TIS il tempo è espresso in ore r minuti e 
secondi. 

Il concetto di base parte dall' istruzione PRINT TI che vi- 
sualizza il conteggio deil'orologio interno del Commodo- 
re. Assegnando alla variabile S il valore di TI diviso 60 si 
ha il conteggio in secondi e relativi decimi, centesimi e 
così via. L'incremento del clock avviene automaticamente 
tramite una delle azioni periodiche del microprocessore. 
Per ottenere le ore od i minuti interi è stata usato l'istru- 
zione BASIC iNT, la quale è stata impiegata per definire i 
valori delle variabile H per le ore e M per I minuti. Ad H 
viene assegnato il valore calcolato sulla variabile S fratto 
3600 corrispondente ai secondi di un'ora, mentre ad M 
viene assegnato il va lo re corrispondente dal l'espressione 
di S tratto 60 e per evitare che M sfa uguale al totale dei 
minuti trascorsi oltre l'ora viene sottratto 60' H. Le istru- 
zioni PRINT presenti nella seconda parte dì questa 'una 
riga" visualizzano le tre variabili interessate al conteggio: 
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COMPUTER 
QUESTO 
MESE 
È QUESTO 




Buongiorno, 

robot 

Memorie 
di massa 
quali 
scegliere 

Cristalli 
liquidi 
alla riscossa 

Quinta 
generazione 
la sfida 
giapponese 


Benchmark 

ICL 

modello 16 





S, M e H, 

La personalizzatone del clock può avvenire se necessa- 
rio in maniera diretta semplicemente con: TI$="12253Cr 
se nel momento in cui si premerà il tasto RETURN sarà 
mezzogiorno e venticinque minuti e trenta secondi. Fatto 
ciò si può impartire il comando RUM 

(Gabriele Mercati) 

1 S~TI /m ■ H= I NT < 3/3600 ) - I NT < < $/ 
50 > - < 6 0*H > > : PR I NT ,J C HOME 3 H 11 H : PR T 
NT 11 fi 11 ri : PP I NT M f RVS ] " S : PUH 


#018 

Di tutti i colorì, La locazione di memoria 162 serve per 
poter variare il colore del cursore, contiene un contatore 
ciclico che va da 0 a 255. M Commodore, sia esso 64 o VIC 
20, utilizza questo contatore per aggiornare la variabile 
temporale Tl$. 

(Eugenio Poffari) 

1 PR I NT" C RVS ] " : : POKE 646 , PEEK < 

! 62) GOTO ,1 


#019 

Hard copy. Questa '"una riga" permette di ottenere fhard- 
copy dello schermo sulla stampante con numero dì devi- 
ce corrispondente a 4. Basta cambiare opportunamente il 
numero di device ed ecco possibile I hardcopy anche sul- 
la stampante piotter 1520. 

(Marco Melloni) 


1 OPEN 3/3= OPEN 4,4:RRINT"tH0HE]“ 
; ■ FOR I “0 IO SS® - GEI #3, Hf : PR I N 
T#4 , fi* ; ■ NEXT ■ CLOSE 3 - CLOSE 4 


#020 

Giriamo II video. Marco, l'autore delia precedente "una 
riga ", ha inviato anche una seconda realizzazione, che 
però aveva una leggera imperfezione. Ho ritenuto co- 
munque che l'idea fosse ottima ed ho cosi modificato 
t "e la borato: il video viene aperto in input come se fosse in 
file sequenziale ed in un secondo tempo ritorna alfa nor- 
malità di output 

(da una idea di Marco Melloni) 


! OPEN 3 , 3 : PR I NT 11 [HOME 3 " ; : I NFUT#3 
, f\$- PR I NT 11 [ 24 BONN 3 “fi* ; : CLOSE 3 
■GOTO 1 


#021 

Un altro orologio. Sfruttando ancora la variabile tempora- 
le Tl$ Silvano ha realizzato un orologio digitale a colon. A 
differenza #017 abbiamo qui una manipolazione della va- 
riabile TIS piuttosto che la variabile TI. 

( Silvano Falcherò) 


1 PR I NT " C CLERI R 3 [ VERDE ] " ; "ORE C NERO 
3 " ; L EFT$ < T I $ , 2 > " [ VERDE ] M IN. t M 
ERO 3 3 , 2> i " C VERDE 3 SEC 
. [ NERO 3 " ; R I GHT t < T 1 1 2 > : GOTO 1 


#022 

PAI NT AT. Sfruttando una routine del Kemal simuliamo 
l'istruzione AT non presente nel BASIC del Commodore 
La presente "una riga" è quindi un semplice dimostrativo 
della possibilità dì utilizzo delle istruzioni in programmi 
più complessi. 

(Salvatore Daióone) 

i PR I NT M [ CLEflR 3" ■ F OR ft*l IO 23 = X* 
Fi : V-24-fi : POKE 211^-POKE 214, V: 
3VS58732 ■ PR I NT 11 [ RVS 3-fìT- 1 RVQFF 1 
PER CBN 64 11 : NEXT r GOTO 1 


#023 

GHRS e POKE. L'attuale 1 R consente di analizzare la cor- 
rispondenza fra il codice in CHR$ ed il codice in POKE. IL 
funzionamento è alquanto semplice: dai caratteri prove- 
nienti dall'INPUT vengono visualizzati i corrispondenti 
CHR$ e codici numerici per i POKE. 

(Massimo Dossi) 

1 PRINT r, [CLERR3" : INPUT NT ■ FOR L=1 
TO LEN<N$> ‘POKE 1 !45+L,fiSCCMIB 
* < m , L .. 1 > > : NEXT : PR I NT “ [ BOUN 3 " 




#024 

Geometrìa. Con questa semplice IR si può calcolare una 
qualsiasi area dì un quadrato o di un rettangolo. 

(Luigi Galiano ce) 


1 INPUT 11 [CLERR]BH3E ,l ;B : INPUT "CD 
0MN3RLT. " ; fi: C=B*fi : PRINT n flREfi= rt C 
: FOR D=1 TO 3080 : NEXT = GOTO 1 


$8 - Commodore 


#025 

Daf lardo al netto Con una riga è possibile calcolare 
l'importo netto proveniente da uno lordo di cui si conosce 
l'aliquota. 

(Giuseppe Datianoce) 


1 PRIHrTCLEflRl" - INPUT "TOTALE " 
;T : INPUT "ALIQUOTA" ; fì ■ M=T-(T#A/ 

< 100+ft> > : PPINT 11 [H0NE3 C3 D0WN3 
NETTO C 3 RIGHTD- H ;N 

# 

#026 

Toto Tandem. Questa I R è destinata alla generazione ca- 
suale di 13 simboli come neiruso delle norme del totocal- 
cio. La colonna di numeri viene evidenziata sul video af- 
fiancata dal numero della giocata corrispondente. Modifi- 
cando Il valore posto nell'Istruzione IF si può cambiare a 
piacimento tl numero delle giocate, 

(Gianfranco Datianoce) 

1 ftf = 1 " 12X 1 " ^ E$=M 1 1 >$ C H* , RNIi < 1 > #3+ 1 , 

1 > : R=fl+1 : PftINTEi; fi : IF A<13 THEN 
1 


#027 e #028 

Il verme viaggiatore e pazzi saluti. ECCO duo versioni 

della medesima possibilità di manipolare una strìnga di 

caratteri. .... . , 

(Daniele Novis) 

t Bi=" CLEFT] " - FOR X=1 T0 200'PRIH 

T"CCtEflR3'':PRINTD*; "0•0•0#0•0 ,, ; 

■ D$=D$+"CRIGHT3 " : NEXT 

1 [RIGHI]" 'FOR 1 = 1 T0 200: FRI 
NT" [OLEARI " : FOR R=1 TO 80 : PRIMI 
Fl$ "CIAO! " : R*=R$+ " E R I GHT 3 " ■ NEX 
TR : NEXTI 


♦ 


#029 

Tutti sul video. Volete vedere byte per byte i contenuti di 
tutte le locazioni di memoria? Ebbene battete questa 
semplice IR. 

f Gianfranco Sasso) 

1 PRINTCHR$<PEEK<N)>; -N=N+1 :GOTO 
1 


#030 

Caleidoscopio. Questo programma va a scrìvere sulla 
mappa video una serie casuale di caratteri e cosi pure 
casualmente anche I colori relativi. 

(Michele Giuri) 

1 PRIHT"[CLERR3" ; F0R 1=1024 T0 20 
23 = POKE I , RHIK 1 ) # 1 9 1 : POKE I +542 
72 , RNB <1 > * 1 5 : NEXT : GOTO 1 


#031 

Dove Commodore? Lo schermo si riempirà delle lettere 
comprese nella parola Commodore, Le posizioni sono 
casuali. Sarà divertente individuare dove la casualità seri- 
verà esattamene il nome del Vostro computer. 

(Maurizio Brandimarti) 

I FOR 1 = 1 T0 6 '■ PERE R$E I ) ; NEXT : X= 
INT <RND( 1 )#6? + l ; PRINT" CRIGHT3 "R 
$CX> : URTA C, 0, M, 0, R, E : RESTORE 
: GOTO 1 


— 1 — 
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Tabella ab brevi azione delie parole chiave del Basic. 


Commodoro - 59 



Scambiatevi le liste 


Tutta l« richtastt ài Vtndo- Scimbi^Csdipro 
programmi p*f„. varranno citata »*ti ulivi- 
manie con li solo noma, cognom* ad Indiriz- 
zo- Sta a voi lettor* scambiarvi la vario lista. 
Varranno pubblicali Ini egramente ■ giudizio 
dal caporodat1ora h quagli annunci eh» non 
fanno parta dalia caiagona di cui sopra. Buo- 
ni scambi a vandiital! 

(Gloriano Ros Sri > 

Bifolchi Giordano Via nel Corso 111- 53045 
Montepulciano (St) - Tel 0578/757907- 
716397 

Lino irai la Lgo C. Volpiceli! 6/A - eoi 36 
Napoli - Tel. 081/348082 

Gaetano Di Mattia - C.so Vittorio Lmanueio 
224 - 93012 Gela (CL) - Tel. 0933/91 7565 

Ropele Andrea * Via Marco™ 30 - 39065 
Laives (BZ) Tel. 0471/951460 

Satmaso Massimiliano - Via Voltan 5 - 30039 

Stra(VE) 

Maio Antonio - Vìa S Agostino 9 - 90057 
Milazzo (Mi) - Tel 090/921261 

Marcello Cosi Via Migliana Nuova 178 - 
00146 Roma - Tel 06/5266009 dopo le ore 
20 . 

Augusto Bernardini - Via Valle Verde 5 - 
05100 Temi - Tel . 0744/56870-47 1 48 

Quaglia Roberto - Via Martiiwzdi 2 20161 
Milano - Tel. 02/64821 30 datore 21 aite 22. 

Salvati Massimo - Via Piero Colonna 30 
00149 Roma - Tel. 06/52610 16 ore 10/12.30 
oppure 1 7/19 30 

Stefano M assoli - Via Massari 10 - 06100 
Perugia -Tel 2B983 

Natali Sandro - Via XIV Luglio 36/A - 50019 
Sesto Fiorentino (FI) - Tel- 055/4481640 ore 
pasti tutti i giorni. 



Lucio Tonucci - Viale Romagna 36 - 61032 
Fano - Tel 879424 ore pasti (13. 30 oppure 
20 ) 

Arturo Viscardi - Via Brosetta 16 - 24100 
Bergamo - TeL 035/239150 dalle 1 B in poi. 

Andrea Toschi - L,go Garibaldi 32 - 41100 
Modena. 

Manzo Fabio - Via Calabria 36 - 81022 Casa- 
giove (CE) - Tel 0823/466177 dalle 14 alle 
16 dalle 21 alio 23. 

Club 64 Commodore casella posiate 6 - 
35044 Montagnana (PD) - Tel 0429/82469 
dalle 20 in poi. 

Garrone Vincenzo - Via G. Pascoli 67 - 86100 
Campobasso - Tel. 0874/91995 ore pasli 

Maurizio Caporale - Viale della Rimembran 
za 29 - 66034 Canaano (CM) - Tel. 0872/ 
27296 ore pasti 

Roberto Colza - Via Puccin i 60 - 20099 Sesto 
San Giovanni (MI) - Tel 02/2425392 dalie 
ore 12.30 afte 15 30. 

Manano Talamo - Via Col licci 10 - 70019 
Tnggiano (BA) - Tel. 080/601470 dopo te Ore 
20 . 

Elia De Falco - Vìa Roma 14 - 84036 Sala 
Con si Ima (SA) - Tel 0975/21 193 dalle ore 22 
alle 23. 

Claudio Veronese - Via Tcnso 15 - 15100 
Alessandria, 

Grossi Alessandro - Via Dario Campana 19 
47037 Rimini - Tel 054 1/773450 dal le 1 6 alte 
20 . 

Salvatore Rauca - Via G. D'Annunzio 1 
S1 100 Caserta - Tel. 0823/323745 ore pasii 

Germano Fasano - Via Erede I D'Este 3 - 
44100 Ferrara - Tel. 0532/25401 dalle ore 
13 30 alle 14.30, 

Alessandro Sofia - Via Cremona 42 - 63040 


Frignano (AP) Tel 0736/68 148 dalle 13 30 
alle 14 oppure dalle 20 alle 2 1 .30 

Carmine Parrella - Via T Mommsen 2 - 
82100 Benevento Tel. 0624/48068 dalle 1 4 
alle 17. 

Quargnaii Marco - Via Nazionale 73 - 33048 
S Giovami Al Nat. (UD). 

Galanti Marcelle - Via Torre Nuova 134 - 
00133 Roma. 

Ferrari Fabio - Via Araldi 5 - 29100 Piacenza 

- Tel. 0523/753203 dopo le ore 1 8, 

C rigirano Garibaldi - Via Vicolo 3 Lazzaro 16 

- 10038 Sanremo (IM) - Tel. 0184/823554 
ore pasti (12/14 oppure 19/21} 

Frazzano Antonio Via De Nicola LO- 21036 
Lucerà (FG). 

Gianm Caudino - ViaGraglta 18- 10136 Ton- 
no - TeL 01 1/352830 dalle ore 19.30 alle 
21 30 

Sielano Sarctetti - Vìa Doss Di Fez 17 - 
30023 Cles (TN) - Tel 0463/21930 solo ore 
serali 

Nicola Nami - Via Filippo Mesa 40 - 86100 
Chieti 

Giovanelil Claudio - Via Ripamonti 194 
20141 Milano - Tel 02/536926. 

Altare Geccarim - Via Di Vittorio 10 - 58028 
Follonica - Tel. 0566/43248 dopo le ore 19 
nei giorni feri al i 

Andrea Rigori Via G, Verdi 16 - 35031 
Abano Terme - Tel 049/01 1447 ore pasti . 

Jory Fausto - Viale De Gasperi 49 - 38023 
Qes (TN) - Tel L 0463/2 1 660 dopo le 20. 

Lai Piergiuliano - Via G. Zuddas 143 - 09100 
Cagliar - Tei 562668 datte 13 alle 17.30. 

Gravandola Distiano - Via Prof Oliva 16 - 
12011 Borgo S Dalmazzo(CN) Td. 0171/ 


60 - Commodori? 


Sensazional e/ 

scegli 2 cartridges Commodore 
per il tuo VIC-20 o CBM-64 

i 1 O 7 Cfl UHE + IVA 
a solo lO./uU CADUNA 

...e risparmi subito 50.000 lire! 

Segna sul modulo d adeslone i codici delle 2 cartridges che preferisci (più 1 di riserva) tra quelle qui 
di seguito elencate: questa è un'occasione irripetibile per aderire all’APCO assicurandoti cosi, finché 
vorrai, tutti i suoi vantaggi esclusivi! La presente offerta é riservata esclusivamente a nuovi associati. 


CARTRIDGES PER VIC-20 

Codice 1 901 AVFNQEH 

Le tue astronave dhfridv «xlfWMfltt la Terra daH'lofiaHo degli Invasori spaziali. 

Codice 1305 COSMtC CflUNCHER 

Una missione sparile a borda r/m tuo Cruncliar, opilani e vari .livelli ci. difficoltà 

Codice 190/ JUP1TER LANDE R 

Sodo fa Iijà abilità pi le. far aJtfrrru^ matronava. neri crateri di un pericoloso pianola. 
Codice 1910 RAT RACE 

Guida ,1 tuo topoHno tornito n radar alia ricorda dei formaggi evitando lo insidie. 

Codice 191? MOLE ATtACK 

Sol uri agricoltore e deri colpire eoo una mazza lo talpa appena escono da buoni 
CddN» 1913 RIDE ON FORT KNO* 

Una pericolosa awwvturg noi labirinti a corridoi di Fort Knpji ala ricerca dell'oro 
Codice 1914 AVVENTURE LAND 

Dori andare aAa ricerca de* 13 teaot' nascosi? portando# al sicuro fra m*e .naidit 

Corifeo 191 S PI RATE COVE 

Por gì» amanti del rtscriio vftfuppWUMrt* awriiHiea ftì rmsaoioao covo Oa pèaS. 
Codice 1910 VOODOO CASTLE 

Un classico dei avventura cric noi antico cs&leto menati ala prova Ea tua abtià 
CodiCA 1919 SARGON CHESSJJ 

Sfda il computer noi gioco dagl scacchi può scogfcere f r a ? IwelS di d’if colta 

GRATIS IL NOTIZIARIO 'AFCO NEWS’ 

Riceverai grati s periodicamente il notiziario illustrato ’Apcó News/'. 
Potrai cosi scegliere i wrifeogiocN die vorrei ira quelli presentati 
Saranno sempre I giochi piu attuati, su cassetta o su cartuccia, quelli 
di cui lutti parlano e cho si trovano in lesta nelle classifiche di vendi- 
ta d’Europa e ri America inoltre ARCO li segnalerà penochcamenie 
il videogioco migliore, in offerta spedale, che, solo se lu io vorrai, 
riceverai automaticamente a casa tua, ad un pretto particolarmente 
vantaggioso, senza neppure doverlo ordinare. 

SulF'-Àpco News- Irdverai inoltre tantissime otterte Speciali: libri, uti- 
li 11 es, periteli che, accessori, per arricchire sempre più il tuo sis lenta 
e io tua conoscenze Tutti 1 prodotti offerii sono selezionati fra ì mi- 
gliori produttori e garantiti totalmente. 


GARANZIA 

1) Qualità l vklsogiochi propensi, sono serrili dal Comitale» dell APCO ir# i 
miai io', e lei. pubblici! In Europa e ragli USA, Ovu cresq.il -à sSG'O dittili 
di fabb^carione sarìuno «o^iiiiàti immadjatarmnte. Anche gS nitri prodot- 
ti offerti, lutti seieztonatnaimiL saranno assistili da opportuna garanzia 

2) Il software più prntiamà A pruni esclusavi L'APCO proporrà video - 
giochE e utillilss deifo più prestigiose software -nowse spesso In antepri- 
me I prezzi riservali aeri associali zannino di almeno .1 20^ inferiori ai 
nornvue prezzi di mercato 

3) Mimmo impegno L'associato svra e onerilo ■ impegno <n ordinare ai-uà’ 
no tre cartucce, □ cassette, di vfdàogfochii durame il primo amo ti ade- 
sione scekerinole ira quelle puDbàcotD luD'Apco N*wa 

4! apco ai riserva di accettare la presente domanda di adesione. 


Spedire il presente modulo, O una fotocopia in busta chiusa 

a ÀPCO s.rX - Casella Postate 239 - 1001 & tVREA (TO) 


Codice 1 9?3 omega race 

Sei un guerrigrg di Omega g devi driandorti cJairr^asma d| Androifl muniil di bsor. 

Codice 1924 GORF 

Distruggi r esercito Gorlien che avanza lo Quattro ondate dui drcHdl aliutoriave 

CARTRIDGES PER CQMMODORE-64 

Codice 6401 VI SIO LE SOLAR SYSTEM 

A bordo di Lrn'afltronave viaggi per milioni di miglia riiu scopata dd sistema solare 

Codice 6402 LAZASIAN 

Uno degli ultimi giochi creati della Commodore per II lue CBM-64 
Codice 6403 CLOWN® 

Classica gioco óa arcade. Fai saltare l| down fluHaltaferu pur colpire i palmi 
Codice 6404 MUSlC COMPOSEH 

Ura cartuccia indispensabile soprattutto agli appuslonlti di music* 

Codice 6405 JUP 1 TER LANDE* 

devi ‘are atterrare atninwie là lue nevicato spaziale rt uni delle 3 &«■ a Qcva 
Codice 0406 LE HANS 

A barda del tuo C6M-&4 arderai tutti t cancHa-m note leggendaria corsa 9 La Mans, 

Codice 640/ OMEGA RACE 

Sei un guerriero di Omega e devi rivenderti daHrwaaonetft Androkft nu*t»dl laser. 

Codice 6406 SEA WOLF 

Un vecchio lupo di mare li efrede di affondare con 4 terpene* uno le nwn ranrctie 

FORTI SCONTI 

Solo APCO a propone i vnJeoglochi piu inieressanli tacendoli rispar- 
miare anche oltre il 20% rispetto al normali prezzi 01 mercato. 

Ma anche sulle altre numerose proposte, dai libri atte per il eriche 
agli accessori, potrai realizzare risparmi dai 20% aJ 35V Ciò è pos- 
sioile poiché ARGO importai 0 acquista, direttamente dai produttori 
in adeguati quantilati vi tutti i prodotti die h offre, senza Intermedia- 
ri e senza spese di distribuzione 

IL MASSIMO PROFITTO CON IL MINIMO IMPEGNO 

Ordinerai quello che vorrai per trarre il massimo profitto dalle prò 
poste APCO. L'unico tuo minimo impegno sarà di ondinere anche so- 
lo altre tre cartucce, o cassetta, nel primo anno di adesione al' APCO, 

a prezzi sempre esclusivi, e bastai 

_->* 

CC 

SM desidero aderire all’APCO per assicurarmi tutti 1 suoi 
vantaggi esclusivi e ricevere due cartridges Commodore per 
il mio □ VIC-20 U CBM-64 tra quelle che qui indico in or- 
dine di preferenza: 

cod cod. cod 

Pagherò soltanto al ricevimento della merce l'Importo com- 
plessivo, IVA inclusa, di Lire 44.250 (olire a Lire 3. 750 per 
contributo spese imballo e spedizione) 


Nome _ 


Via 


CAP 

C tltà 

data 

tua 

(firma del gettone in ceso i richiedente ebtu mena di ift nw) 


MODULO DI ADESIONE E DI RISPARMIO 





769659 pomeriggio o sera. 

Alfredo Dal Ferro ■ Via Fornace 3 - 21040 
Castronno Tei 0332/495969 dopo le 19 

Vrtagtiano Fabnzco - Via Servats 73 - 10146 
Torino - Tel. 01 1/720666 serali dopo te 20. 

Master Computer Club - C.so Piave 20 - 
06023 Gualdo Tadino {PG) - Tel 075/ 
913234 ore past: 

Marcar in Gian Alberto Via Falconerà 45 - 
30021 Qanrte |VE) - Tel, 0431/619662 dalle 
14 alle 15 

Angelo Orlandi - Via Dette Albizzle 4-00152 
Roma - Tel. 06/289366 dalle 13 alte 21 30, 

Raineri Antonio - Vta Mazzini 1 20077 Mele* 
gnano (MI) - Tel 02/4033786. 

Cotogni Gianni - Via Strambino 23 - IODIO 
Garrone (TG) * Td 0125/712311 

Renato Menegatti ■ Via Piemonte 26 - 20052 
Monza (MI), 

Roberto Bianchi - Via Ardigò 1 * 20052 Moro- 
za (MI) - Tei. 039/360493. 

Sandro Natali - Via XIV Luglio 36/A - 50019 
Sesto Fiorentino - Tei. 055/4461640 

Sombara Gianpaolo - Via Draglia 36-10136 
Torino * Tel. 01 1/363547. 

Roberto Franzoso - P zza Medaglie d'Oro 8 - 
14100 Asti. 

Fabio invertì izzi - Via Mcnteuervino 13 - 
20066 Mdzo (M I) Tel . 02/957 1 11/6 

Michele Pezzi - Via Gol. Maria Luigia 15 - 
43100 Parma ■ Tel. 052t/32l65. 

Carobene Giovanni P.zza Dante 89 - 80135 
Napoli. 

Bompieri Silvano - Via Boccaglionì 8 46040 
Monzambano - Tel 0376/845372. 

Lena Gregorio - V ie Silvani 3/2 - 40122 Bo- 


logna -Tei 051/551178 

Stram gioii Maurizio - Via G Pasco*. 67 - 
47033 Cattolica (FO) 

Dino Marrocdii - Via Marconi 302 - 65100 
Pescara -Td. 085/68352. 

Luca Dell’Anna - Via Avellino 12 - 73100 
Lecce - Td. 0832/591 157, 

Fabio Molinan - Via Gemiamo Bello ni 112- 
00191 Roma. 

Marino Russo - Via Sandro Gallo 169 - 301 26 
Venezia Lieto Tel- 041/30777-768593. 

Bdlofiore Giuseppe * Via Aurdia 50? - 57012 
Castigfioncdlo (LI) Td 0586/752135. 

Claudio Veronese - Via M Bensì 29-15100 
Alessandria Td 0131/344591 

Cellesca Giuseppina - P.zza Papa Giovanni 
XXme-OIOTOBtera (VT) - Tel. 06/9027228 

Cané Cirio - Via Arcora 7 - 80013 Casainuo* 
vo- Tei 6421400 


Paolo Zancartm - Vta Cannaregg*o 2978/A - 
30121 Venezia - Td 041/715422 

Fabrizio Rizzi - Va Castello 3060 /B - 30122 
Venezia -Tei 041/22083 

Carmelo BrigugFo - Via Viltà Franca 19 - 
98026 Nizza Di Sicilia (ME). 

Massimo Proia ■ Vìa Pubblico Passeggui 19 - 
29100 Piacenza Tel 0523/32417. 

Roberto Giumento - Via Luigi Rizzo 18 - 
80124 Napdi - Td. 001/617368. 

Arnaldo Resfrefll - Via Mel/i 135 - 20025 
Legnano (MI) Tel. 0331/596582. 

Oomus - Via Crimea 3 20100 Milano - Td 
02/4049179 5696868 

E ligio Dati - Via Marignana 118- 55041 Ca- 
naiùre * Tel 0564/900970 

Giovanni Addabbo - Via Monte Vettore 46 
60131 Ancona 

Mauro Stradino ■ Via Codi Portuensi 242 - 


Vicario Cesare - Via Pr. Umberto 44 - 2802! 
Borgomanero * Tef. 0322/82509. 

Sani Massimiliano - Via S, Rosa 2 - 56040 
Volterra (PI) - Te!. 0580/08907 

Stefano Rossi - Via Oratorio 43 - 5201 1 Bib- 
biena (AR) - Tel. 0575/593854 

Luigi Palombo - V.le A. Gramsci 26 - 80122 
Napoli -ToL 081/660068, 

Ubaldo Mancini - Via Valdeflatorre 174 - 
10151 Torino - Tei. 01 1/7391205. 

Massimiliano Gregnanin - Via XXV Aprile 4 - 
10036 Sèttimo Torinese - Tei. 01 1 /80 10392. 

Marcò di Giorgio - VJe Alessa ndnm 251 - 
D0 1 1 72 Romma - Tel. D6/201 9659. 

Giuseppe Genchi - Via Umm berlo Maddale- 
na 1 72 - 90 1 32 Patermo - Td. 590 1 4 1 


00151 Roma -Tei 0675343650 

Paguri Alessandro - Via Ferrata 9 - 61QH 
Gabice-Td 0541/967391. 

Giuseppe - Via Mameli 15-33100 Udine - 
Tel. 0432/291665 

Ferraguti Francesco - Via Mazzini 1348 - 
41043 Formarne (MOj - Tel. 059/5701 1 0, 

Savoia Massimo - Via S. Anna 1 1 20045 

Besana Brianza (MI) - Tel, 0362/940245. 

Giorgio Primiceri - Via Sauro 07 - 73100 Lec- 
ce-Tei. 45344 

Ernesta Ghia netta - Via Némorense 39 - 
00199 Roma - Tel 06/8453884. 

Cantalipi Stefani - Via M Guzzi 13-66100 
Chieli- Tei. 0871/2020. 

Domenico Galte Via Contrada Guido 36 - 
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computer System 

s.a.s. di Gloriano Rossi e C. 

C.so Porta Nuova 46 - 20121 Milano 
Tel. 02/6599547-6575115 


rivenditore autorizzato 

Qz. Commodore 



Software 


Prodotti 

Accessori 

Assistenza 


Assistenza software per Commodore, Sanyo, NCR, Sirius-Vìctor e tutti i 
personal compatibili IBM-PC. 

KHMODEM, il demodulatore ideale per la trasmissione e ricezione dei dati 
(Baudot, ASCII, RTTY, CW). 


Rivenditori di zona: 

CREMA: EDP ANSWER di A. Olierei - Via Borlerto 1 - Tel. 0373-59140 
BIELLA: H.D.S. Home Data System di Mantellaro - Via Italia 50/a - Tel. 015-28620 





80029 Serra S. Bruno -Tel. 0963/71210 

Mano Guarnefi - Via Gramsci 64 95018 

Riposto |CT} - Tel 932 1 06. 

Maurizio Sterne** Via Gobetti 10 - 41012 
Carpi (MQ) - Tel 059/693684 

Bruno Marcio Via Ricordi 1 1 20131 Milano 
- Tel. 02/203973 

Allievi Alessandro - Via Monte Bianco 22 - 
20021 Bollate (Mi) - Tel. 3506085 

Ponte Gabriele - Via Borghese 1 - 20154 
Milano Tel 02/344891 

Nadia Bracchi Carogna - Via Vmlaglio 151 - 
15100 Alessandria - Tel 0131/446521 

A domo Antonio - Via Stazione 20 - 30060 


Oh w?n (RE) ■ Tel 094 1 /331 33. 

Fox Software c/o Bompien Silvano Via Boc- 
cagtione 9 - 46040 Monzambano |MN) - Tel 
0376/845372 845216. 

Claudio P - P zza Spoiorno 3 - 20145 Mirano 
- Tel 02/680482 

Ezio Bovio - Via L. Miglio 32 - 28043 EteJImza 
go -Tel 0321/98430 

Federico Chieh - Via Volturno 1 - 10133 Ton- 
no - Tel 01 1/65QS22S 

Sergio Poli ■ Via G. Moctena 35 35100 Pa 
dova - Tel. 049/050026 

Lorenzo Gtannoni - Via Zanefli 19 - 25100 
Brescia - Tel 030/294505 


Marcelli Luca - Via Ugo Bassi 70 - 58900 
Grosseto - Tel 0564/29590 


Diego Palazzi - Via Monte Rosa 15 - 2014Q 
Milano - Tel 02/465802 

Marcello Caputo - Via Ftfangen 1 - 71100 
Foggia -Tel 25072 

Walter Cationi - Via Dei Mille 26 - 00185 
Roma - Tel. 06/4956604 

Franco Piccione - Viale L Da Vinci 146 - 
00145 Roma - Tel 06/5 132153 

Alberto Cacari ■ Via S Aliente 15 - 40139 
Botógna - Te!. 051/491 185. 

Reale Nicola - Via Circonvallazione 110 - 
95041 Collagi rone fCT) - Tel 0933/22766 


3C 3tC cLEuTOfliCA 

41 Brazzoduro R. * CoH»gorl F. sn.c, 


Commodore 64 

Modem MOD2 300 Baud Bell 
1 03. Alimentazione prelevata dal 
computer. Minime dimensioni. 

L. 160.000 + IVA + spese 
spedizione. 

Per tutti i modelli 
Commodore 

Interfaccia registratore. Lettura 


co n i n vers io ne dì fase . Led 
al lineamento testina. 
Automatismo in commercio. 
Duplicazione nastro/nastro. 
Scambio programmi direttamen- 
te via radio. 

L.25.000 + spese spedizione 

Pagamento: vaglia postale / 
assegno circolare / contrasse- 


gno intestandoli a: 

B. & C. Elettronica snc - via 
Edolo h 40 - 20125 Milano. 
Consegna immediata al ricevi* 
mento ordine. 

Per informazioni telefonare al 
680.619. 

Prezzi speciali 
per i rivenditori 
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ymputer 

configurato: 


vuoi 
intiere 
ymprare 


Registrate il mio abbonamento annuale a Commodore. 

□ Ho versato oggi stesso il canone di Lire 25.000 a mezzo de postate n° 31532203 intestalo a: 
Commodore Systems Editoriale - V ie Famagosta. 75 - 20142 Milano 

□ Accludo assegno per lire 25.000 banca __ n° a favore di 

Commodore Systems Editoriale 

Il mio computer è: VIC 20 □, C 64 □, altro (specificare) 

Ho □ i non ho □ la stampante, ma voglio □ comprarla. 

Preterisco programmi di gioco □, didattici Q d'utilità afrtro 

Nome — — Cognome „ 

Via — , — _ CAP. I j I I I I Città 

Tel, 


h 


Registratemi fra i collaboratori regolar! dì Commodore. 

A 1 itolo d i prova vi i rwio u n articolo e la cassetta col program ma" 

” di cui vi garantisco l'assoluta originalità auto rizzando vene la pubblicazione, 

□ Scrivetemi al l'indirizzo sottoindicato 

Nome 

Via ...... 


Tel. 


HELP 


CAP 




Città 


Nome 

Via 


. n c 


lei. 


CAP. LL I I I 1 Città 


Orario 







Sono in 


Ho intenzione 

■ 





possesso 

No 

di acquistare 

m 

Vie 20 □ 

espanso a K 



□ 

□ 

□ 

m 

C 64 n 




O 

□ 

□ 

■ 

Floppy □ 

quale: 1541 □ 

altro 


□ 

□ 

a 

m 

Stampante □ 

quale: MPSS01 □ 

altro 


□ 

D 

a 

m 

Plotter □ 

quale: 1520 □ 

altro 


□ 

D 

o 

m 

Registratore □ 

quale: 1530 □ 

altro 


□ 

n 

o 


Televisore □, TV-Monilor D t Monitor □. Colore □, B/M □ 
Nomo lì. . Cognome 


Via 

Tel. 


n° 


gap. I_LLL 


Città 


Vendo □ Compro U 


m 
* 

9 

* 

* 

« 

Nome 
Via _ 

■ Tel 


ilS* 



CAP. U LI J... 1 Città 
Orario _ 


Si, voglio 
abbonarmi 


«i 

3 

£- 

O 

ra 

tn 


e 

nj 

> 

C 

CG 

Q 


Spett.le rivista 
Commodore 
Systems Editoriale 

v.le Famagosta, 75 
20142 Milano 


03 

03 

m 

3 

o 

ifl 

% 

3 

.Q 


o> 

w 

CO 

> 

c 

co 

Q 


Spett.le rivista 
Commodore 
Systems Editoriale 

v.le Famagosta, 75 
20142 Milano 


CG 

03 

Uì 

2 

jr 

o 

Vi 


Spett.le rivista 
Commodore 
Systems Editoriale 


s 

03 

> 

C 

03 

Q 


v.le Famagosta, 75 
20142 Milano 


-4 


Spett.le rivista 
Commodore 
Systems Editoriale 


v.le Famagosta, 75 
20142 Milano 



Spett.le rivista 
Commodore 
Systems Editoriale 


v.le Famagosta, 
20142 Milano 



Si, voglio 
collaborare 


Si, chiedo 
consiglio 


Si, voglio 
votare 


Si vendo/ 
compro 



* ■ 




PROGRAMMO IN 
BASIC 

f fa gu&ggfo del futuro in un 
rawete rapido e compialo cf 
CS2?o Marti 
Dsgg. 224 (L 9 , 000 / 

I Basic, attualmente il 
■piaggio più conosciuto 
acattc all 'utili zzo su qualunque 
tape di macchina e in 
particolare sul personal e gli 
^me-eomputer ■ può essere 
appreso in poche ore con 
ausilio di questo agite 
manuale. 


COME SCEGLIERE UN 
COMPUTER 

Guida pratica por l'acquisto di 
un mini o di un micro computer 
professionale di Michele 
j!> Pisa 

pagg 1 60 (L &00Q) 

Duale modello scegliere tra gli 
oltre 600 computar 
commercia fi-zzati m Italia'? La 
conoscenza osile 
caratteristiche delle varie 
macchine è indispensabile. Con 
un approccio a '*rnenu " 
l'Autore vuol essere guida 
propino m questa fase 


UTILITY E ROUTINE 
PER IL 

COMMODORE 64 

di Gloriano Rossi 
pagg. 132 (L 9 000} 

L esecuzione dr una istruzione 
BASIC può richiedere diverse 
centinaia dr passi di programmi 
in linguaggio macchina La 
dimensione dei programmi è 
ciò che intimidisce 
maggiormente l'iltitzzalore 
medio dr Commodore: aiutato 
da questo testo chiunque potrà 
affrontare senza prementi il 
processo di scrittura di un 
programma. 


BASIC PER LO 
SPECTRUM 

di Maurizio Ariana e Gaio Merli 

pagg . 192 {L s.ooo) 

Un Hbro per quanti hanno 
acquistato il computer ZX 
Spectrum della Sinclair e 
intendono sfruttarne appieno 
lutto le capacità, dall hardware 
alla programmazione in 
aesem&ly (linguaggio 
macchina) 


* I volumi, che sono comunque in vendita nelle migliori librerie di tutta Italia. 
*•* cessone anche essere richiesti direttamente ali'Ediiore ’ 

** a importante; l'ordine minimo dovrà essere di L. 15.000, 


Inviatemi i seguenti volumi: 


guarnita 


prezzo unitario 


spese postali L. 2 000 

total a L 


Pagherò contrassegno il dovuto (più L. 2 000 per contributo spese postali) al ricevimento, 
Potrò restituire i libri entro 6 giorni se non saranno di mio gradimento e avere il rimbor- 
so imm sciato 

COGNOME 


nome 



VIA 


N. 

CAP 

CITTÀ 


FIRMA 



DATA 




Scrivere in stampatelo e spedirò in busta Chiusa 


DIZIONARIO 

DELL'INFORMATICA 

Vocabolario inglese- 1 taf tane di 
Cultrera. Di Prse, Giacomelli 
pagg 388 (L 25 000} 

Uno slru manie ri dispensata -le 
per chi si avvicina ai mondo 
deli Informatica e per gfi 
spoeta lista che hanno l'esigenza 
di accedere alla dinamica 
letteratura anglosassone, 


Un'iniziativa condotta con 
la nota rivista Computer 








Una cassetta eccezómaZe! 
da chiedere affla tua edicola. 



Un programma 
super per 
turbizzare 
i tuoi programmi 

(C64) 

Un package che 
ti fa l’oroscopo 

(Vie 20 con espansione 
da 16K e C64) 

Conto corrente 

(Vie + C64) 

Visito rs 
un supergioco 
mai visto 
per il Vie 20 

Shuttle (C64) 

Pinocchio (C64) 

Panettone (cmi 

Energy (vie 20) 

Mr. Chomp (vie 20) 



